From 839f2da8e4c353294e0b7bf0124334532a920f5c Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Wed, 20 Sep 2006 17:34:25 +0000 Subject: [PATCH] fix out-of-scope vars Mon Sep 18 14:44:11 EDT 2006 Manuel M T Chakravarty * fix out-of-scope vars Sat Aug 5 21:41:02 EDT 2006 Manuel M T Chakravarty * fix out-of-scope vars Thu Jul 13 04:27:42 EDT 2006 kevind@bu.edu --- compiler/typecheck/TcRnMonad.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs index 5ada68a..abe8745 100644 --- a/compiler/typecheck/TcRnMonad.lhs +++ b/compiler/typecheck/TcRnMonad.lhs @@ -19,6 +19,7 @@ import SrcLoc ( noSrcLoc ) import TysWiredIn ( intTy, stringTy, mkListTy, unitTy, boolTy ) import PrelNames ( breakpointJumpName, breakpointCondJumpName ) import NameEnv ( mkNameEnv ) +import TcEnv ( tcExtendIdEnv ) #endif import HsSyn ( emptyLHsBinds ) @@ -187,7 +188,7 @@ addBreakpointBindings thing_inside = mkGlobalId VanillaGlobal breakpointCondJumpName (basicType (FunTy boolTy)) vanillaIdInfo } - ; extendIdEnv [breakpointJumpId, breakpointCondJumpId] thing_inside} + ; tcExtendIdEnv [breakpointJumpId, breakpointCondJumpId] thing_inside} #else = thing_inside #endif -- 1.7.10.4