diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 17:34:25 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 17:34:25 +0000 |
| commit | 839f2da8e4c353294e0b7bf0124334532a920f5c (patch) | |
| tree | 4e7bb5f05d5b822619623e37b8bc967653ab09c2 | |
| parent | 15cb792d18b1094e98c035dca6ecec5dad516056 (diff) | |
| download | haskell-839f2da8e4c353294e0b7bf0124334532a920f5c.tar.gz | |
fix out-of-scope vars
Mon Sep 18 14:44:11 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* fix out-of-scope vars
Sat Aug 5 21:41:02 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* fix out-of-scope vars
Thu Jul 13 04:27:42 EDT 2006 kevind@bu.edu
| -rw-r--r-- | compiler/typecheck/TcRnMonad.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs index 5ada68a90b..abe8745104 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 |