X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=6d90eaa02f68241e253beded657f7652271c5609;hb=923ee9d360ed15331ac6faf8a6b4aca334fc0cee;hp=b7b4f0b87ded290e2d742140e09ddf1953cc405b;hpb=f01ea859e2b902ad0401b9012baae0a8ad0c2adf;p=ghc-hetmet.git

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index b7b4f0b..6d90eaa 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -797,8 +797,8 @@ rnFamily (tydecl@TyFamily {tcdFlavour = flavour,
 		    emptyFVs) 
          } }
       where
-        isDataFlavour (DataFamily _) = True
-	isDataFlavour _		     = False
+        isDataFlavour DataFamily = True
+	isDataFlavour _		 = False
 
 family_doc tycon = text "In the family declaration for" <+> quotes (ppr tycon)
 needOneIdx = text "Type family declarations requires at least one type index"