From a1632b0af860d28589b444d8e28896bee8bced38 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 4 May 2007 22:18:57 +0000 Subject: [PATCH] Panic properly if wrongKindOfFamily is given an unexpected family Used to just give a "Non-exhaustive patterns" failure --- compiler/typecheck/TcTyClsDecls.lhs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index dbf83fb..76b9a9e 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -1197,6 +1197,7 @@ wrongKindOfFamily family = kindOfFamily | isSynTyCon family = ptext SLIT("type synonym") | isDataTyCon family = ptext SLIT("data type") | isNewTyCon family = ptext SLIT("newtype") + | otherwise = pprPanic "wrongKindOfFamily" (ppr family) emptyConDeclsErr tycon = sep [quotes (ppr tycon) <+> ptext SLIT("has no constructors"), -- 1.7.10.4