Commit 467e1a62 authored by Simon Marlow's avatar Simon Marlow

fprintCCS_stderr: untag the exception (#7319)

parent cdf13898
......@@ -1067,7 +1067,7 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso)
char *desc;
StgInfoTable *info;
info = get_itbl(exception);
info = get_itbl(UNTAG_CLOSURE(exception));
switch (info->type) {
case CONSTR:
case CONSTR_1_0:
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