Ooops, forgot that one in my previous commit (don't mention
HsFalse/HsTrue anymore).
\ body -> Case arg case_bndr [(DataAlt box_data_con,[prim_arg],body)]
)
\ body -> Case arg case_bndr [(DataAlt box_data_con,[prim_arg],body)]
)
- -- Booleans; Hacking alert: the 0/1 literals should match the HsFalse/HsTrue constants
| arg_ty == boolTy
= newSysLocalDs intPrimTy `thenDs` \ prim_arg ->
returnDs (Var prim_arg,
| arg_ty == boolTy
= newSysLocalDs intPrimTy `thenDs` \ prim_arg ->
returnDs (Var prim_arg,