Add GHC 9.2 support hie-compat

Author: fendor

hie-compat/hie-compat.cabal

@@ -46,4 +46,7 @@ library
     hs-source-dirs: src-ghc810 src-reexport
   if (impl(ghc >= 9.0) && impl(ghc < 9.1) || flag(ghc-lib))
     hs-source-dirs: src-ghc901
+  if (impl(ghc >= 9.2) && impl(ghc < 9.3))
+    hs-source-dirs: src-ghc902
+
 

hie-compat/src-ghc902/Compat/HieAst.hs

@@ -0,0 +1,36 @@
+{-
+Forked from GHC v9.2.1 to work around the readFile side effect in mkHiefile
+
+Main functions for .hie file generation
+-}
+{- HLINT ignore -}
+{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
+
+module Compat.HieAst ( mkHieFile, enrichHie ) where
+
+import           GHC.Data.Maybe      (expectJust)
+import           GHC.Driver.Env
+import           GHC.Hs
+import           GHC.Tc.Types        (TcGblEnv)
+import           GHC.Types.Avail     (Avails)
+import           GHC.Unit.Module     (ml_hs_file)
+import           GHC.Unit.Module.ModSummary (ModSummary(..))
+
+import           GHC.Iface.Ext.Ast   (enrichHie, mkHieFileWithSource)
+import           GHC.Iface.Ext.Types
+
+import qualified Data.ByteString     as BS
+
+
+type RenamedSource     = ( HsGroup GhcRn, [LImportDecl GhcRn]
+                         , Maybe [(LIE GhcRn, Avails)]
+                         , Maybe LHsDocString )
+
+-- | Construct an 'HieFile' from the outputs of the typechecker.
+mkHieFile :: ModSummary
+          -> TcGblEnv
+          -> RenamedSource
+          -> BS.ByteString -> Hsc HieFile
+mkHieFile ms ts rs src = do
+  let src_file = expectJust "mkHieFile" (ml_hs_file $ ms_location ms)
+  mkHieFileWithSource src_file src ms ts rs

hie-compat/src-ghc902/Compat/HieBin.hs

@@ -0,0 +1,8 @@
+{-
+Binary serialization for .hie files.
+-}
+
+module Compat.HieBin ( module GHC.Iface.Ext.Binary)
+where
+
+import GHC.Iface.Ext.Binary

hie-compat/src-ghc902/Compat/HieDebug.hs

@@ -0,0 +1,10 @@
+module Compat.HieDebug
+  ( module GHC.Iface.Ext.Debug
+  , ppHie ) where
+import GHC.Iface.Ext.Debug
+
+import GHC.Iface.Ext.Types (HieAST)
+import GHC.Utils.Outputable (Outputable(ppr), SDoc)
+
+ppHie :: Outputable a => HieAST a -> SDoc
+ppHie = ppr

hie-compat/src-ghc902/Compat/HieTypes.hs

@@ -0,0 +1,3 @@
+module Compat.HieTypes
+  ( module GHC.Iface.Ext.Types ) where
+import GHC.Iface.Ext.Types

hie-compat/src-ghc902/Compat/HieUtils.hs

@@ -0,0 +1,3 @@
+module Compat.HieUtils
+  ( module GHC.Iface.Ext.Utils ) where
+import GHC.Iface.Ext.Utils