since 595013d41464c1e328369bb81ce0ea2814e91b68

digital-asset · Jan 24, 2025 · 2f50f65 · 2f50f65
1 parent d47f87c
commit 2f50f65
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/ghc-lib-gen/src/Ghclibgen.hs b/ghc-lib-gen/src/Ghclibgen.hs
@@ -942,8 +942,12 @@ mangleCSymbols ghcFlavor = do
    in writeFile file
         . prefixSymbol genSym
         . prefixSymbol initGenSym
-        . replace "#if !MIN_VERSION_GLASGOW_HASKELL(9,9,0,0)" "#if !MIN_VERSION_GLASGOW_HASKELL(9,8,4,0)"
-        =<< readFile' file
+          =<< readFile' file
+  when (ghcFlavor <= Ghc9121) $
+    let file = "compiler/cbits/genSym.c"
+    in writeFile file
+       . replace "#if !MIN_VERSION_GLASGOW_HASKELL(9,9,0,0)" "#if !MIN_VERSION_GLASGOW_HASKELL(9,8,4,0)"
+       =<< readFile' file
   when (ghcFlavor == Ghc984) $
     let file = "compiler/cbits/genSym.c"
      in writeFile file