From f297deab8887f3f6e9462e1c89598391c099bbb1 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Tue, 3 Oct 2006 13:44:14 +0000 Subject: [PATCH] Warning police only --- compiler/hsSyn/HsTypes.lhs | 1 + 1 file changed, 1 insertion(+) 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: -- 1.7.10.4