body_env2 = extendConEnv body_env bndr' (isConApp (sc_cons env) rhs')
-- Record if the RHS is a constructor
; (body_usg, body') <- scExpr body_env2 body
; return (body_usg `combineUsage` rhs_usg, Let (NonRec bndr' rhs') body') }
else
do { -- Join-point case
body_env2 = extendConEnv body_env bndr' (isConApp (sc_cons env) rhs')
-- Record if the RHS is a constructor
; (body_usg, body') <- scExpr body_env2 body
; return (body_usg `combineUsage` rhs_usg, Let (NonRec bndr' rhs') body') }
else
do { -- Join-point case