aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2014-12-14 10:11:47 +0100
committerHerbert Valerio Riedel <hvr@gnu.org>2014-12-14 10:11:47 +0100
commitb4b82e84099196ff22762e90922aea48671781a2 (patch)
tree80e1ff3580edd7301d458006f3f8dc0d0240b0f2 /haddock-api
parent1739375eb23342618a3ac01c46a9e4a48cabf716 (diff)
Remove redundant wild-card pattern match
(this would otherwise cause a build-failure with `-Werror`)
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Convert.hs1
1 files changed, 0 insertions, 1 deletions
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