Commit b80c3f61 authored by Simon Marlow's avatar Simon Marlow
Browse files

result_id should be a GlobalId

parent 1cb07a46
......@@ -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
-- for each Id we're about to bind in the local envt:
-- - skolemise the type variables in its type, so they can't
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