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:
9da4639
)
Warning police only
author
simonpj@microsoft.com
<unknown>
Tue, 3 Oct 2006 13:44:14 +0000
(13:44 +0000)
committer
simonpj@microsoft.com
<unknown>
Tue, 3 Oct 2006 13:44:14 +0000
(13:44 +0000)
compiler/hsSyn/HsTypes.lhs
patch
|
blob
|
history
diff --git
a/compiler/hsSyn/HsTypes.lhs
b/compiler/hsSyn/HsTypes.lhs
index
09cb073
..
2693a10
100644
(file)
--- a/
compiler/hsSyn/HsTypes.lhs
+++ b/
compiler/hsSyn/HsTypes.lhs
@@
-246,6
+246,7
@@
splitHsInstDeclTy inst_ty
where
split_tau tvs cxt (HsPredTy (HsClassP cls tys)) = (tvs, cxt, cls, tys)
split_tau tvs cxt (HsParTy (L _ ty)) = split_tau tvs cxt ty
+ split_tau _ _ other = pprPanic "splitHsInstDeclTy" (ppr inst_ty)
-- Splits HsType into the (init, last) parts
-- Breaks up any parens in the result type: