Fix 9.4 build

Author: wz1000

ghcide/src/Development/IDE/Core/Compile.hs

@@ -137,8 +137,6 @@ import qualified GHC.Types.Error                   as Error
 #if MIN_VERSION_ghc(9,5,0)
 import GHC.Driver.Config.CoreToStg.Prep
 import GHC.Core.Lint.Interactive
-import GHC.Driver.Main (mkCgInteractiveGuts)
-import GHC.Unit.Home.ModInfo
 #endif
 
 -- | Given a string buffer, return the string (after preprocessing) and the 'ParsedModule'.

ghcide/src/Development/IDE/GHC/Compat/Core.hs

@@ -486,6 +486,15 @@ module Development.IDE.GHC.Compat.Core (
     Extension(..),
 #endif
     UniqFM,
+    mkCgInteractiveGuts,
+    justBytecode,
+    justObjects,
+    emptyHomeModInfoLinkable,
+    homeModInfoByteCode,
+    homeModInfoObject,
+# if !MIN_VERSION_ghc(9,5,0)
+    field_label,
+#endif
     ) where
 
 import qualified GHC
@@ -1187,4 +1196,29 @@ type UniqFM k = UniqFM.UniqFM
 mkVisFunTys = mkScaledFunctionTys
 mapLoc :: (a -> b) -> SrcLoc.GenLocated l a -> SrcLoc.GenLocated l b
 mapLoc = fmap
+#else
+mapLoc :: (a -> b) -> SrcLoc.GenLocated l a -> SrcLoc.GenLocated l b
+mapLoc = SrcLoc.mapLoc
+#endif
+
+
+#if !MIN_VERSION_ghc(9,5,0)
+mkCgInteractiveGuts :: CgGuts -> CgGuts
+mkCgInteractiveGuts = id
+
+emptyHomeModInfoLinkable :: Maybe Linkable
+emptyHomeModInfoLinkable = Nothing
+
+justBytecode :: Linkable -> Maybe Linkable
+justBytecode = Just
+
+justObjects :: Linkable -> Maybe Linkable
+justObjects = Just
+
+homeModInfoByteCode, homeModInfoObject :: HomeModInfo -> Maybe Linkable
+homeModInfoByteCode = hm_linkable
+homeModInfoObject = hm_linkable
+
+field_label :: a -> a
+field_label = id
 #endif

ghcide/src/Development/IDE/GHC/Compat/Outputable.hs

@@ -34,6 +34,7 @@ module Development.IDE.GHC.Compat.Outputable (
     mkWarnMsg,
     mkSrcErr,
     srcErrorMessages,
+    textDoc,
     ) where
 
 
@@ -85,7 +86,7 @@ import           GHC.Driver.Config.Diagnostic
 import           GHC.Utils.Logger
 #endif
 
-#if MIN_VERSION_ghc(9,3,0)
+#if MIN_VERSION_ghc(9,5,0)
 type PrintUnqualified = NamePprCtx
 #endif
 
@@ -247,3 +248,6 @@ defaultUserStyle = Out.defaultUserStyle
 #else
 defaultUserStyle = Out.defaultUserStyle unsafeGlobalDynFlags
 #endif
+
+textDoc :: String -> SDoc
+textDoc = text

ghcide/src/Development/IDE/LSP/Outline.hs

@@ -11,6 +11,7 @@ where
 
 import           Control.Monad.IO.Class
 import           Data.Functor
+import           Data.Foldable                  (toList)
 import           Data.Generics                  hiding (Prefix)
 import           Data.Maybe
 import qualified Data.Text                      as T
@@ -30,7 +31,7 @@ import           Language.LSP.Types             (DocumentSymbol (..),
                                                  TextDocumentIdentifier (TextDocumentIdentifier),
                                                  type (|?) (InL), uriToFilePath)
 #if MIN_VERSION_ghc(9,2,0)
-import Data.List.NonEmpty (nonEmpty, toList)
+import Data.List.NonEmpty (nonEmpty)
 #endif
 
 moduleOutline

ghcide/src/Development/IDE/Plugin/Completions/Logic.hs

@@ -141,7 +141,11 @@ getCContext pos pm
         importGo :: GHC.LImportDecl GhcPs -> Maybe Context
         importGo (L (locA -> r) impDecl)
           | pos `isInsideSrcSpan` r
+#if MIN_VERSION_ghc(9,5,0)
           = importInline importModuleName (fmap (fmap reLoc) $ ideclImportList impDecl)
+#else
+          = importInline importModuleName (fmap (fmap reLoc) $ ideclHiding impDecl)
+#endif
           <|> Just (ImportContext importModuleName)
 
           | otherwise = Nothing

ghcide/src/Development/IDE/Types/Exports.hs

@@ -51,9 +51,9 @@ instance NFData ExportsMap where
 instance Show ExportsMap where
   show (ExportsMap occs mods) =
     unwords [ "ExportsMap { getExportsMap ="
-            , printWithoutUniques $ mapOccEnv (text @SDoc . show) occs
+            , printWithoutUniques $ mapOccEnv (textDoc . show) occs
             , "getModuleExportsMap ="
-            , printWithoutUniques $ mapUFM (text @SDoc . show) mods
+            , printWithoutUniques $ mapUFM (textDoc . show) mods
             , "}"
             ]