Use a flag to fake being ghc

Author: augustss

src/MicroCabal/Main.hs

@@ -55,7 +55,7 @@ decodeCommonArgs env = do
   let loop e ("-v"           : as) = loop e{ verbose = verbose e + 1 } as
       loop e ("-q"           : as) = loop e{ verbose = -1 } as
       loop e ("-r"           : as) = loop e{ recursive = True } as
-      loop e (('-':'f':s)    : as) = loop e{ eflags = decodeCabalFlags s } as
+      loop e (('-':'f':s)    : as) = loop e{ eflags = decodeCabalFlags s ++ eflags e } as
       loop e ("--ghc"        : as) = do be <- ghcBackend env; loop e{ backend = be } as
       loop e ("--mhs"        : as) = do be <- mhsBackend env; loop e{ backend = be } as
       loop e ("--dry-run"    : as) = loop e{ dryRun = True } as

src/MicroCabal/Normalize.hs

@@ -79,9 +79,10 @@ cond info = eval
         eval (Cimpl s mv) = n == s && maybe True (inVersionRange v) mv
                           -- Pretend we are ghc >= 9.0.  This is an ugly hack, but makes
                           -- some packages work with no change (change is hard!).
-                          || s == "ghc" && maybe False (inVersionRange hackv) mv
+                          || fromMaybe False (lookup "fake-ghc" (flags info)) &&
+                             s == "ghc" && maybe False (inVersionRange hackv) mv
           where (n, v) = impl info
-                hackv = makeVersion [9,0,0]
+                hackv = makeVersion [9,6,0]
 
 inVersionRange :: Version -> VersionRange -> Bool
 inVersionRange v (VEQ v') = v == v'