import TysWiredIn ( intTy, stringTy, mkListTy, unitTy, boolTy )
import PrelNames ( breakpointJumpName, breakpointCondJumpName )
import NameEnv ( mkNameEnv )
+import TcEnv ( tcExtendIdEnv )
#endif
import HsSyn ( emptyLHsBinds )
= mkGlobalId VanillaGlobal breakpointCondJumpName
(basicType (FunTy boolTy)) vanillaIdInfo
}
- ; extendIdEnv [breakpoingJumpId, breakpointCondJumpId] thing_inside}
+ ; tcExtendIdEnv [breakpointJumpId, breakpointCondJumpId] thing_inside}
#else
= thing_inside
#endif