--- bustle-0.7.5/GetText.hs~ 2018-07-05 16:08:09.000000000 +0800
+++ bustle-0.7.5/GetText.hs 2020-02-24 18:26:13.282149543 +0800
@@ -94,6 +94,10 @@
import Distribution.Simple.InstallDirs as I
import Distribution.Simple.Utils
+import Distribution.CabalSpecVersion (CabalSpecVersion(CabalSpecV2_2))
+import Distribution.Simple.Glob (matchDirFileGlob)
+import Distribution.Verbosity (silent)
+
import Language.Haskell.Extension
import Control.Monad
@@ -216,3 +219,7 @@
-- splits string by newline, space and comma
split' x = concatMap lines $ concatMap words $ unfoldr (\b -> fmap (const . second (drop 1) . break (==',') $ b) . listToMaybe $ b) x
+-- | 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 CabalSpecV2_2 "."