wip: Fix build with cabal-2.4

src/Distribution/Simple/I18N/GetText.hs

@@ -78,7 +78,7 @@ import           Distribution.Simple
 import           Distribution.Simple.InstallDirs    as I
 import           Distribution.Simple.LocalBuildInfo
 import           Distribution.Simple.Setup
-import           Distribution.Simple.Utils
+import           Distribution.Simple.Utils          (warn)
 import           Distribution.Verbosity
 
 import           Control.Arrow                      (second)
@@ -90,7 +90,7 @@ import           System.Exit
 import           System.FilePath
 import           System.Process
 
-import           Internal
+import           Internal                           (fromPackageName, matchFileGlob)
 
 -- | Default main function, same as
 --

src/Internal.hs

@@ -1,12 +1,25 @@
 {-# LANGUAGE CPP #-}
 
-module Internal where
+module Internal (fromPackageName, matchFileGlob) where
 
 import           Distribution.Simple
+#if MIN_VERSION_Cabal(2,4,0)
+import           Distribution.Simple.Glob    (matchDirFileGlob)
+import           Distribution.Verbosity      (silent)
+#else
+import           Distribution.Simple.Utils   (matchFileGlob)
+#endif
 
 fromPackageName :: PackageName -> String
 #if MIN_VERSION_Cabal(2,0,0)
 fromPackageName = unPackageName
 #else
 fromPackageName (PackageName s) = s
 #endif
+
+#if MIN_VERSION_Cabal(2,4,0)
+-- | Newer versions of Cabal have removed this function in favour of more configurable implementation
+-- We assume Cabal 2.0
+matchFileGlob :: FilePath -> IO [FilePath]
+matchFileGlob = matchDirFileGlob silent (mkVersion [2, 0]) "."
+#endif