don't forget to enable ^C after a :cont or :step

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

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 7e5071b..2a373d5 100644 (file)
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2160,6 +2160,7 @@ data Status
 -- the old interactive context.
 data ResumeHandle
   = ResumeHandle
+        ThreadId                -- thread running the computation
         (MVar ())               -- breakMVar
         (MVar Status)           -- statusMVar
         [Name]                  -- [Name] to bind on completion