Skip to content

Commit 1fb8830

Browse files
committed
Remove MIN_VERSION_ghc(9,3,0)
1 parent 5caf534 commit 1fb8830

File tree

4 files changed

+7
-7
lines changed

4 files changed

+7
-7
lines changed

flake.lock

Lines changed: 3 additions & 3 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

ghcide/session-loader/Development/IDE/Session.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -798,7 +798,7 @@ setNameCache nc hsc = hsc { hsc_NC = nc }
798798
-- Moved back to implementation in GHC.
799799
checkHomeUnitsClosed' :: UnitEnv -> OS.Set UnitId -> [DriverMessages]
800800
checkHomeUnitsClosed' ue _ = checkHomeUnitsClosed ue
801-
#elif MIN_VERSION_ghc(9,3,0)
801+
#else
802802
-- This function checks the important property that if both p and q are home units
803803
-- then any dependency of p, which transitively depends on q is also a home unit.
804804
-- GHC had an implementation of this function, but it was horribly inefficient

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -815,7 +815,7 @@ generateHieAsts hscEnv tcm =
815815
pure $ Just $
816816
#if MIN_VERSION_ghc(9,11,0)
817817
hie_asts (tcg_type_env ts)
818-
#elif MIN_VERSION_ghc(9,3,0)
818+
#else
819819
hie_asts
820820
#endif
821821
where
@@ -1005,7 +1005,7 @@ mergeEnvs env mg dep_info ms extraMods envs = do
10051005
| HsSrcFile <- mi_hsc_src (hm_iface a) = a
10061006
| otherwise = b
10071007

1008-
#elif MIN_VERSION_ghc(9,3,0)
1008+
#else
10091009
let im = Compat.installedModule (toUnitId $ moduleUnit $ ms_mod ms) (moduleName (ms_mod ms))
10101010
ifr = InstalledFound (ms_location ms) im
10111011
curFinderCache = Compat.extendInstalledModuleEnv Compat.emptyInstalledModuleEnv im ifr

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ import GHC.Iface.Errors.Types (IfaceMessage)
2323
writeIfaceFile :: HscEnv -> FilePath -> ModIface -> IO ()
2424
#if MIN_VERSION_ghc(9,11,0)
2525
writeIfaceFile env fp iface = Iface.writeIface (hsc_logger env) (targetProfile $ hsc_dflags env) (Iface.flagsToIfCompression $ hsc_dflags env) fp iface
26-
#elif MIN_VERSION_ghc(9,3,0)
26+
#else
2727
writeIfaceFile env fp iface = Iface.writeIface (hsc_logger env) (targetProfile $ hsc_dflags env) fp iface
2828
#endif
2929

0 commit comments

Comments
 (0)