A new :stepover command for the debugger

[ghc-hetmet.git] / compiler / main / InteractiveEval.hs

diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs
index 1859582..069a829 100644 (file)
--- a/compiler/main/InteractiveEval.hs
+++ b/compiler/main/InteractiveEval.hs
@@ -14,6 +14,7 @@ module InteractiveEval (
         abandon, abandonAll,
         getResumeContext,
         getHistorySpan,
+        getHistoryModule,
         back, forward,
        setContext, getContext, 
         nameSetToGlobalRdrEnv,
@@ -131,6 +132,9 @@ data History
         historyBreakInfo :: BreakInfo
    }
 
+getHistoryModule :: History -> Module 
+getHistoryModule = breakInfo_module . historyBreakInfo
+
 getHistorySpan :: Session -> History -> IO SrcSpan
 getHistorySpan s hist = withSession s $ \hsc_env -> do
    let inf = historyBreakInfo hist