From b4b82e84099196ff22762e90922aea48671781a2 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sun, 14 Dec 2014 10:11:47 +0100 Subject: Remove redundant wild-card pattern match (this would otherwise cause a build-failure with `-Werror`) --- haddock-api/src/Haddock/Convert.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index 3a77eca5..1b1a8a88 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -173,7 +173,6 @@ synifyTyCon coax tc (brListMap (noLoc . synifyAxBranch tc) branches) BuiltInSynFamTyCon {} -> return $ ClosedTypeFamily [] AbstractClosedSynFamilyTyCon {} -> return $ ClosedTypeFamily [] - _ -> Left "synifyTyCon: type/data family confusion" in info >>= \i -> return (FamDecl (FamilyDecl { fdInfo = i -- cgit v1.2.3