Add CPP statements for IncludeSpecs

haskell · Aug 23, 2021 · 23c21e8 · 23c21e8
1 parent 3703788
commit 23c21e8
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