diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 4db1dffdfc..68bfb6d9fe 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -572,7 +572,7 @@ cgAltRhss gc_plan retry_lbl bndr alts ; return con } maybeAltHeapCheck :: GcPlan -> Maybe BlockId -> FCode a -> FCode a -maybeAltHeapCheck NoGcInAlts mlbl code = code +maybeAltHeapCheck NoGcInAlts _ code = code maybeAltHeapCheck (GcInAlts regs) mlbl code = case mlbl of Nothing -> altHeapCheck regs code |