Commit db9c51c9 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

White space only

parent 4179e02e
...@@ -126,7 +126,7 @@ mk_val_app (Var f `App` Type ty1 `App` Type _ `App` arg1) arg2 _ res_ty ...@@ -126,7 +126,7 @@ mk_val_app (Var f `App` Type ty1 `App` Type _ `App` arg1) arg2 _ res_ty
where where
case_bndr = case arg1 of case_bndr = case arg1 of
Var v1 | isLocalId v1 -> v1 -- Note [Desugaring seq (2) and (3)] Var v1 | isLocalId v1 -> v1 -- Note [Desugaring seq (2) and (3)]
_ -> mkWildId ty1 _ -> mkWildId ty1
mk_val_app fun arg arg_ty _ -- See Note [CoreSyn let/app invariant] mk_val_app fun arg arg_ty _ -- See Note [CoreSyn let/app invariant]
| not (needsCaseBinding arg_ty arg) | not (needsCaseBinding arg_ty arg)
...@@ -135,7 +135,7 @@ mk_val_app fun arg arg_ty _ -- See Note [CoreSyn let/app invariant] ...@@ -135,7 +135,7 @@ mk_val_app fun arg arg_ty _ -- See Note [CoreSyn let/app invariant]
mk_val_app fun arg arg_ty res_ty mk_val_app fun arg arg_ty res_ty
= Case arg (mkWildId arg_ty) res_ty [(DEFAULT,[],App fun (Var arg_id))] = Case arg (mkWildId arg_ty) res_ty [(DEFAULT,[],App fun (Var arg_id))]
where where
arg_id = mkWildId arg_ty -- Lots of shadowing, but it doesn't matter, arg_id = mkWildId arg_ty -- Lots of shadowing, but it doesn't matter,
-- because 'fun ' should not have a free wild-id -- because 'fun ' should not have a free wild-id
\end{code} \end{code}
......
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