Commit 4ea89bd4 authored by Simon Marlow's avatar Simon Marlow

fix warning

parent 89cfcda0
......@@ -400,7 +400,7 @@ sizeExpr bOMB_OUT_SIZE top_args expr
alts_size tot_size _ = tot_size
size_up (Case e b _ alts) = size_up e `addSizeNSD`
size_up (Case e _ _ alts) = size_up e `addSizeNSD`
foldr (addAltSize . size_up_alt) case_size alts
where
case_size
......
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