projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4179e02
)
White space only
author
simonpj@microsoft.com
<unknown>
Mon, 15 Sep 2008 15:48:41 +0000
(15:48 +0000)
committer
simonpj@microsoft.com
<unknown>
Mon, 15 Sep 2008 15:48:41 +0000
(15:48 +0000)
compiler/coreSyn/MkCore.lhs
patch
|
blob
|
history
diff --git
a/compiler/coreSyn/MkCore.lhs
b/compiler/coreSyn/MkCore.lhs
index
0844a0a
..
acb189f
100644
(file)
--- a/
compiler/coreSyn/MkCore.lhs
+++ b/
compiler/coreSyn/MkCore.lhs
@@
-126,7
+126,7
@@
mk_val_app (Var f `App` Type ty1 `App` Type _ `App` arg1) arg2 _ res_ty
where
case_bndr = case arg1 of
Var v1 | isLocalId v1 -> v1 -- Note [Desugaring seq (2) and (3)]
where
case_bndr = case arg1 of
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]
| not (needsCaseBinding arg_ty arg)
mk_val_app fun arg arg_ty _ -- See Note [CoreSyn let/app invariant]
| not (needsCaseBinding arg_ty arg)
@@
-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
= Case arg (mkWildId arg_ty) res_ty [(DEFAULT,[],App fun (Var arg_id))]
where
mk_val_app fun arg arg_ty res_ty
= Case arg (mkWildId arg_ty) res_ty [(DEFAULT,[],App fun (Var arg_id))]
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
\end{code}
-- because 'fun ' should not have a free wild-id
\end{code}