diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-14 10:11:47 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-14 10:11:47 +0100 |
| commit | b4b82e84099196ff22762e90922aea48671781a2 (patch) | |
| tree | 80e1ff3580edd7301d458006f3f8dc0d0240b0f2 /haddock-api/src/Haddock | |
| parent | 1739375eb23342618a3ac01c46a9e4a48cabf716 (diff) | |
Remove redundant wild-card pattern match
(this would otherwise cause a build-failure with `-Werror`)
Diffstat (limited to 'haddock-api/src/Haddock')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 1 |
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 |