diff options
Diffstat (limited to 'ghc/GHCi')
| -rw-r--r-- | ghc/GHCi/UI.hs | 7 | ||||
| -rw-r--r-- | ghc/GHCi/UI/Info.hs | 3 |
2 files changed, 6 insertions, 4 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 4e90e930c2..9b520c7e23 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -101,6 +101,7 @@ import GHC.Utils.Panic.Plain import GHC.Utils.Misc import qualified GHC.LanguageExtensions as LangExt import GHC.Data.Bag (unitBag) +import qualified GHC.Data.Strict as Strict -- Haskell Libraries import System.Console.Haskeline as Haskeline @@ -3742,7 +3743,7 @@ stepLocalCmd arg = withSandboxOnly ":steplocal" $ step arg Just loc -> do md <- fromMaybe (panic "stepLocalCmd") <$> getCurrentBreakModule current_toplevel_decl <- enclosingTickSpan md loc - doContinue (`isSubspanOf` RealSrcSpan current_toplevel_decl Nothing) GHC.SingleStep + doContinue (`isSubspanOf` RealSrcSpan current_toplevel_decl Strict.Nothing) GHC.SingleStep stepModuleCmd :: GhciMonad m => String -> m () stepModuleCmd arg = withSandboxOnly ":stepmodule" $ step arg @@ -4094,7 +4095,7 @@ findBreakAndSet md lookupTickTree = do (alreadySet, nm) <- recordBreak $ BreakLocation { breakModule = md - , breakLoc = RealSrcSpan pan Nothing + , breakLoc = RealSrcSpan pan Strict.Nothing , breakTick = tick , onBreakCmd = "" , breakEnabled = True @@ -4156,7 +4157,7 @@ findBreakByCoord mb_file (line, col) arr ticks = arr ! line -- the ticks that span this coordinate - contains = [ tick | tick@(_,pan) <- ticks, RealSrcSpan pan Nothing `spans` (line,col), + contains = [ tick | tick@(_,pan) <- ticks, RealSrcSpan pan Strict.Nothing `spans` (line,col), is_correct_file pan ] is_correct_file pan diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index db09243967..dcda66e634 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -48,6 +48,7 @@ import GHC.Utils.Outputable import GHC.Types.SrcLoc import GHC.Tc.Utils.Zonk import GHC.Types.Var +import qualified GHC.Data.Strict as Strict -- | Info about a module. This information is generated every time a -- module is loaded. @@ -145,7 +146,7 @@ findNameUses infos span0 string = locToSpans (modinfo,name',span') = stripSurrounding (span' : map toSrcSpan spans) where - toSrcSpan s = RealSrcSpan (spaninfoSrcSpan s) Nothing + toSrcSpan s = RealSrcSpan (spaninfoSrcSpan s) Strict.Nothing spans = filter ((== Just name') . fmap getName . spaninfoVar) (modinfoSpans modinfo) |