Fix bug #763: Breakpoint mechanism crashes when there's a type error.

[ghc-hetmet.git] / compiler / typecheck / TcRnMonad.lhs

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index a287014..a795339 100644 (file)
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -152,9 +152,9 @@ initTc hsc_env hsc_src mod do_this
                                     = mkGlobalId VanillaGlobal breakpointCondJumpName
                                                  (basicType (FunTy boolTy)) vanillaIdInfo;
                                 new_env = mkNameEnv [(breakpointJumpName
-                                                     , AGlobal (AnId breakpointJumpType))
-                                                    ,(breakpointCondJumpName
-                                                     , AGlobal (AnId breakpointCondJumpType))];
+                                                     , ATcId breakpointJumpType topLevel False)
+                                                     ,(breakpointCondJumpName
+                                                     , ATcId breakpointCondJumpType topLevel False)];
                               };
                           r <- tryM (updLclEnv (\gbl -> gbl{tcl_env=new_env}) do_this)
 #else