Add CPP statements for IncludeSpecs (haskell#307)

(cherry picked from commit 1875bff)
fendor · Aug 30, 2021 · dedd66b · dedd66b
1 parent 585492a
commit dedd66b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/HIE/Bios/Ghc/Gap.hs b/src/HIE/Bios/Ghc/Gap.hs
@@ -260,6 +260,9 @@ mapOverIncludePaths f df = df
       G.IncludeSpecs
           (map f $ G.includePathsQuote  (includePaths df))
           (map f $ G.includePathsGlobal (includePaths df))
+#if __GLASGOW_HASKELL__ >= 902
+          (map f $ G.includePathsQuoteImplicit (includePaths df))
+#endif
 #else
       map f (includePaths df)
 #endif
@@ -521,4 +524,4 @@ hostIsDynamic :: Bool
 hostIsDynamic = Platform.hostIsDynamic
 #else
 hostIsDynamic = G.dynamicGhc
-#endif
+#endif