[commit: haddock] wip/T9840: Handle EmptyClosedSynFamilyTyCon introduced in fix to #9840 (593a775)

git at git.haskell.org git at git.haskell.org
Wed Jul 8 08:38:18 UTC 2015


Repository : ssh://git@git.haskell.org/haddock

On branch  : wip/T9840
Link       : http://git.haskell.org/haddock.git/commitdiff/593a7759606da4c6b7bfeeb91934e6552259792d

>---------------------------------------------------------------

commit 593a7759606da4c6b7bfeeb91934e6552259792d
Author: Adam Gundry <adam at well-typed.com>
Date:   Wed Apr 15 12:48:03 2015 +0100

    Handle EmptyClosedSynFamilyTyCon introduced in fix to #9840


>---------------------------------------------------------------

593a7759606da4c6b7bfeeb91934e6552259792d
 haddock-api/src/Haddock/Convert.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 8317322..ac477c8 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -173,6 +173,7 @@ synifyTyCon coax tc
                   (brListMap (noLoc . synifyAxBranch tc) branches)
               BuiltInSynFamTyCon {} -> return $ ClosedTypeFamily []
               AbstractClosedSynFamilyTyCon {} -> return $ ClosedTypeFamily []
+              EmptyClosedSynFamilyTyCon {}    -> return $ ClosedTypeFamily []
         in info >>= \i ->
            return (FamDecl
                    (FamilyDecl { fdInfo = i



More information about the ghc-commits mailing list