X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FInteractiveUI.hs;h=5c5e9c1d4c1bf9268b462b72b1e6ff4f9a0d9777;hb=6e9b0b152e64ce2f9e05a054605624f36bf44617;hp=19cc8f1d5141881c79535b3225ce73b669a9026e;hpb=cd29742326367b45b9f779088309c652fd42c779;p=ghc-hetmet.git

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 19cc8f1..5c5e9c1 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -1562,7 +1562,7 @@ stepOverCmd [] = do
               then doContinue (`isSubspanOf` parent) GHC.SingleStep
               else doContinue (const True) GHC.SingleStep
 
-    where 
+stepOverCmd expression = stepCmd expression
 
 {- 
  So, the only tricky part in stepOver is detecting that we have