(exprbinding_maybe, expr') <- doexpr expr uses_bndrs
-- Create a new alternative
let newalt = (con, newbndrs, expr')
(exprbinding_maybe, expr') <- doexpr expr uses_bndrs
-- Create a new alternative
let newalt = (con, newbndrs, expr')
return (bindings, newalt)
where
-- Make wild alternatives for each binder
return (bindings, newalt)
where
-- Make wild alternatives for each binder