diff options
| author | Adam Gundry <adam@well-typed.com> | 2015-05-04 15:32:59 +0100 |
|---|---|---|
| committer | Adam Gundry <adam@well-typed.com> | 2015-05-04 15:32:59 +0100 |
| commit | 26a590c009005d77fbee9e2c79286bd93f7955f5 (patch) | |
| tree | 421725e7e44153bd57048864dcc8f208bd3b18d4 /haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | |
| parent | 5bbae8b9bc17d2166c7e03d5f42f2b12fadf70b7 (diff) | |
Track API changes to support empty closed type familes
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/Decl.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 2fcc21e0..88aa966c 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -265,9 +265,9 @@ ppTyFam summary associated links instances fixities loc doc decl splice unicode ppTyFamHeader summary associated decl unicode qual <+> ppFixities fixities qual instancesBit - | FamilyDecl { fdInfo = ClosedTypeFamily eqns } <- decl + | FamilyDecl { fdInfo = ClosedTypeFamily mb_eqns } <- decl , not summary - = subEquations qual $ map (ppTyFamEqn . unLoc) eqns + = subEquations qual $ map (ppTyFamEqn . unLoc) $ fromMaybe [] mb_eqns | otherwise = ppInstances instances docname unicode qual |