diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:42 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:42 +0000 |
| commit | 4787a076fd84a6ffaeef3984c88be08fdd5068d1 (patch) | |
| tree | 071fc88f90e0fe508d07d82da710f8be2d3c6dfb /compiler/ghci | |
| parent | 41f08e8e43a0c1b2080a24a4d9742ea804068f5a (diff) | |
| download | haskell-4787a076fd84a6ffaeef3984c88be08fdd5068d1.tar.gz | |
Handle optSrcSpanFileName in InteractiveUI
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 592a13aed1..9b59f022cf 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1951,7 +1951,7 @@ stepModuleCmd [] = do Nothing -> stepCmd [] Just _ -> do Just span <- getCurrentBreakSpan - let f some_span = optSrcSpanFileName span == optSrcSpanFileName some_span + let f some_span = srcSpanFileName_maybe span == srcSpanFileName_maybe some_span doContinue f GHC.SingleStep stepModuleCmd expression = stepCmd expression |