From b80c3f61a1a063c15392b706f241d949926582bd Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 14 May 2007 15:30:40 +0000 Subject: [PATCH] result_id should be a GlobalId --- compiler/main/InteractiveEval.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs index 5106d34..de63605 100644 --- a/compiler/main/InteractiveEval.hs +++ b/compiler/main/InteractiveEval.hs @@ -452,7 +452,8 @@ bindLocalsAtBreakpoint hsc_env apStack info = do let result_fs = FSLIT("_result") result_name = mkInternalName (getUnique result_fs) (mkVarOccFS result_fs) span - result_id = Id.mkLocalId result_name result_ty + result_id = Id.mkGlobalId VanillaGlobal result_name result_ty + vanillaIdInfo -- for each Id we're about to bind in the local envt: -- - skolemise the type variables in its type, so they can't -- 1.7.10.4