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:
191fd26
)
Fix splitAppTys
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 19 Nov 2009 10:26:39 +0000
(10:26 +0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 19 Nov 2009 10:26:39 +0000
(10:26 +0000)
compiler/types/Type.lhs
patch
|
blob
|
history
diff --git
a/compiler/types/Type.lhs
b/compiler/types/Type.lhs
index
630340a
..
6053721
100644
(file)
--- a/
compiler/types/Type.lhs
+++ b/
compiler/types/Type.lhs
@@
-427,8
+427,8
@@
splitAppTys ty = split ty ty []
split _ (AppTy ty arg) args = split ty ty (arg:args)
split _ (TyConApp tc tc_args) args
= let -- keep type families saturated
- n | isDecomposableTyCon tc = tyConArity tc
- | otherwise = 0
+ n | isDecomposableTyCon tc = 0
+ | otherwise = tyConArity tc
(tc_args1, tc_args2) = splitAt n tc_args
in
(TyConApp tc tc_args1, tc_args2 ++ args)