Commit 4787a076 authored by batterseapower's avatar batterseapower
Browse files

Handle optSrcSpanFileName in InteractiveUI

parent 41f08e8e
...@@ -1951,7 +1951,7 @@ stepModuleCmd [] = do ...@@ -1951,7 +1951,7 @@ stepModuleCmd [] = do
Nothing -> stepCmd [] Nothing -> stepCmd []
Just _ -> do Just _ -> do
Just span <- getCurrentBreakSpan 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 doContinue f GHC.SingleStep
stepModuleCmd expression = stepCmd expression stepModuleCmd expression = stepCmd expression
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment