X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2FGhciMonad.hs;h=94bd9c25769a221e5568b3a7053459ac976e51d9;hp=0b9239d55315270d5d8d0eda55d4102b09caf9fc;hb=7068f60cc7aefef514f02d5927d5abbdcd5c94d4;hpb=e542d75c0a4b529aeafc0fc51038d670a8adc74c

diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs
index 0b9239d..94bd9c2 100644
--- a/ghc/GhciMonad.hs
+++ b/ghc/GhciMonad.hs
@@ -258,7 +258,13 @@ runStmt expr step = do
           GHC.runStmt expr step
 
 resume :: (SrcSpan -> Bool) -> GHC.SingleStep -> GHCi GHC.RunResult
-resume canLogSpan step = GHC.resume canLogSpan step
+resume canLogSpan step = do
+  st <- getGHCiState
+  reifyGHCi $ \x ->
+    withProgName (progname st) $
+    withArgs (args st) $
+      reflectGHCi x $ do
+        GHC.resume canLogSpan step
 
 -- --------------------------------------------------------------------------
 -- timing & statistics