From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Thu, 31 Jul 2008 01:23:42 +0000 (+0000)
Subject: Handle optSrcSpanFileName in InteractiveUI
X-Git-Tag: 2008-09-12~300
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4787a076fd84a6ffaeef3984c88be08fdd5068d1;p=ghc-hetmet.git

Handle optSrcSpanFileName in InteractiveUI
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 592a13a..9b59f02 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