Skip to content

Commit f8d2dc6

Browse files
committed
Inline some imports (review feedback)
1 parent 2255740 commit f8d2dc6

File tree

1 file changed

+4
-15
lines changed
  • ghcide/src/Development/IDE/GHC/Compat

1 file changed

+4
-15
lines changed

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

Lines changed: 4 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -240,7 +240,7 @@ module Development.IDE.GHC.Compat.Core (
240240
SrcLoc.mkGeneralSrcSpan,
241241
SrcLoc.mkRealSrcSpan,
242242
SrcLoc.mkRealSrcLoc,
243-
getRealSrcSpan,
243+
SrcLoc.getRealSrcSpan,
244244
SrcLoc.realSrcLocSpan,
245245
SrcLoc.realSrcSpanStart,
246246
SrcLoc.realSrcSpanEnd,
@@ -309,13 +309,13 @@ module Development.IDE.GHC.Compat.Core (
309309
Module.ml_hs_file,
310310
Module.ml_obj_file,
311311
Module.ml_hi_file,
312-
Development.IDE.GHC.Compat.Core.ml_hie_file,
312+
Module.ml_hie_file,
313313
-- * DataCon
314-
Development.IDE.GHC.Compat.Core.dataConExTyCoVars,
314+
DataCon.dataConExTyCoVars,
315315
-- * Role
316316
Role(..),
317317
-- * Panic
318-
PlainGhcException,
318+
Plain.PlainGhcException,
319319
panic,
320320
panicDoc,
321321
-- * Other
@@ -926,17 +926,11 @@ getLoc :: SrcLoc.HasSrcSpan a => a -> SrcLoc.SrcSpan
926926
getLoc = SrcLoc.getLoc
927927
#endif
928928

929-
getRealSrcSpan :: SrcLoc.RealLocated a -> SrcLoc.RealSrcSpan
930-
getRealSrcSpan = SrcLoc.getRealSrcSpan
931-
932929
-- | Add the @-boot@ suffix to all output file paths associated with the
933930
-- module, not including the input file itself
934931
addBootSuffixLocnOut :: GHC.ModLocation -> GHC.ModLocation
935932
addBootSuffixLocnOut = Module.addBootSuffixLocnOut
936933

937-
dataConExTyCoVars :: DataCon -> [TyCoVar]
938-
dataConExTyCoVars = DataCon.dataConExTyCoVars
939-
940934
#if !MIN_VERSION_ghc(9,0,0)
941935
-- Linear Haskell
942936
type Scaled a = a
@@ -992,17 +986,12 @@ noExtField :: GHC.NoExt
992986
noExtField = GHC.noExt
993987
#endif
994988

995-
ml_hie_file :: GHC.ModLocation -> FilePath
996-
ml_hie_file = Module.ml_hie_file
997-
998989
#if !MIN_VERSION_ghc(9,0,0)
999990
pattern NotBoot, IsBoot :: IsBootInterface
1000991
pattern NotBoot = False
1001992
pattern IsBoot = True
1002993
#endif
1003994

1004-
type PlainGhcException = Plain.PlainGhcException
1005-
1006995
#if MIN_VERSION_ghc(9,0,0)
1007996
-- This is from the old api, but it still simplifies
1008997
pattern ConPatIn :: SrcLoc.Located (ConLikeP GhcPs) -> HsConPatDetails GhcPs -> Pat GhcPs

0 commit comments

Comments
 (0)