diff options
Diffstat (limited to 'compiler/simplCore/SimplUtils.hs')
| -rw-r--r-- | compiler/simplCore/SimplUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplUtils.hs b/compiler/simplCore/SimplUtils.hs index 2e985c5713..570b4c6df8 100644 --- a/compiler/simplCore/SimplUtils.hs +++ b/compiler/simplCore/SimplUtils.hs @@ -1966,7 +1966,7 @@ mkCase2 dflags scrut bndr alts_ty alts mapAlt f alt@(c,bs,e) = case c of DEFAULT -> (c, bs, wrap_rhs scrut e) LitAlt l - | isLitValue l -> (LitAlt (mapLitValue f l), bs, wrap_rhs (Lit l) e) + | isLitValue l -> (LitAlt (mapLitValue dflags f l), bs, wrap_rhs (Lit l) e) _ -> pprPanic "Unexpected alternative (mkCase2)" (ppr alt) -------------------------------------------------- |