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:
428c9f0
)
[project @ 1998-06-01 12:27:37 by sof]
author
sof
<unknown>
Mon, 1 Jun 1998 12:27:37 +0000
(12:27 +0000)
committer
sof
<unknown>
Mon, 1 Jun 1998 12:27:37 +0000
(12:27 +0000)
fun_result_ty: added extra alt. to catch&report pattern matching failures
ghc/compiler/codeGen/ClosureInfo.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/codeGen/ClosureInfo.lhs
b/ghc/compiler/codeGen/ClosureInfo.lhs
index
db6a9da
..
1e438e3
100644
(file)
--- a/
ghc/compiler/codeGen/ClosureInfo.lhs
+++ b/
ghc/compiler/codeGen/ClosureInfo.lhs
@@
-1133,6
+1133,10
@@
fun_result_ty arity ty
-> fun_result_ty (arity - n_arg_tys) rep_ty
where
([rep_ty], _) = splitFunTys (applyTys (idType con) tycon_arg_tys)
+ Just _ ->
+ pprPanic "fun_result_ty:" (hsep [int arity,
+ ppr ty,
+ ppr res_ty])
where
(_, rho_ty) = splitForAllTys ty
(arg_tys, res_ty) = splitFunTys rho_ty