From 3104fac16e61a23b368749b16e4b796501af8b69 Mon Sep 17 00:00:00 2001 From: Lemmih Date: Fri, 5 May 2006 23:21:58 +0000 Subject: [PATCH] Fix bug #763: Breakpoint mechanism crashes when there's a type error. --- compiler/typecheck/TcRnMonad.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs index a287014..a795339 100644 --- 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 -- 1.7.10.4