From b4b82e84099196ff22762e90922aea48671781a2 Mon Sep 17 00:00:00 2001
From: Herbert Valerio Riedel <hvr@gnu.org>
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(-)

(limited to 'haddock-api/src/Haddock')

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