From: simonpj@microsoft.com <unknown>
Date: Tue, 3 Oct 2006 13:44:14 +0000 (+0000)
Subject: Warning police only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f297deab8887f3f6e9462e1c89598391c099bbb1;p=ghc-hetmet.git

Warning police only
---

diff --git a/compiler/hsSyn/HsTypes.lhs b/compiler/hsSyn/HsTypes.lhs
index 09cb073..2693a10 100644
--- 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: