Commit 839f2da8 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

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
parent 15cb792d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment