{-# LANGUAGE CPP #-}
module Development.IDE.GHC.Compat.Iface (
writeIfaceFile,
cannotFindModule,
) where
import GHC
#if MIN_VERSION_ghc(9,3,0)
import GHC.Driver.Session (targetProfile)
#endif
#if MIN_VERSION_ghc(9,2,0)
import qualified GHC.Iface.Load as Iface
import GHC.Unit.Finder.Types (FindResult)
#elif MIN_VERSION_ghc(9,0,0)
import qualified GHC.Driver.Finder as Finder
import GHC.Driver.Types (FindResult)
import qualified GHC.Iface.Load as Iface
#else
import Finder (FindResult)
import qualified Finder
import qualified MkIface
#endif
import Development.IDE.GHC.Compat.Env
import Development.IDE.GHC.Compat.Outputable
writeIfaceFile :: HscEnv -> FilePath -> ModIface -> IO ()
#if MIN_VERSION_ghc(9,3,0)
writeIfaceFile env fp iface = Iface.writeIface (hsc_logger env) (targetProfile $ hsc_dflags env) fp iface
#elif MIN_VERSION_ghc(9,2,0)
writeIfaceFile :: HscEnv -> FilePath -> ModIface -> IO ()
writeIfaceFile HscEnv
env FilePath
fp ModIface
iface = Logger -> DynFlags -> FilePath -> ModIface -> IO ()
Iface.writeIface (HscEnv -> Logger
hsc_logger HscEnv
env) (HscEnv -> DynFlags
hsc_dflags HscEnv
env) FilePath
fp ModIface
iface
#elif MIN_VERSION_ghc(9,0,0)
writeIfaceFile env = Iface.writeIface (hsc_dflags env)
#else
writeIfaceFile env = MkIface.writeIfaceFile (hsc_dflags env)
#endif
cannotFindModule :: HscEnv -> ModuleName -> FindResult -> SDoc
cannotFindModule :: HscEnv -> ModuleName -> FindResult -> SDoc
cannotFindModule HscEnv
env ModuleName
modname FindResult
fr =
#if MIN_VERSION_ghc(9,2,0)
HscEnv -> ModuleName -> FindResult -> SDoc
Iface.cannotFindModule HscEnv
env ModuleName
modname FindResult
fr
#else
Finder.cannotFindModule (hsc_dflags env) modname fr
#endif