- [(DEFAULT, [], Let (NonRec flags_var flags_expr)
- $ mkLets (concat binds) le),
- (LitAlt (mkMachInt 0), [], empty)])
+ [(DEFAULT, [], (mkLets (concat binds) le))])
+ -- empty <- emptyPD vty
+ -- return (ve, Case (elems `App` sel) lc lty
+ -- [(DEFAULT, [], Let (NonRec flags_var flags_expr)
+ -- $ mkLets (concat binds) le),
+ -- (LitAlt (mkMachInt 0), [], empty)])