aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-27 19:59:04 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-27 19:59:04 +0000
commit212a79093d662ba4f019a87ad9e4a55e4c2b065a (patch)
tree73abe9ac0cac6dbace46aab6241b9a6022d0d7f0 /src/Haddock/Interface/Create.hs
parent4bf839ae83d40e6c41b99889152dac26af5c55e4 (diff)
Make named doc comments into ExportDoc instead of ExportDecl
Fixes a crash when processing modules without export lists containing named docs.
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 25f04d31..b7c82267 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -411,6 +411,7 @@ fullContentsOfThisModule :: Module -> [DeclInfo] -> [ExportItem Name]
fullContentsOfThisModule module_ decls = catMaybes (map mkExportItem decls)
where
mkExportItem (L _ (DocD (DocGroup lev doc)), _, _) = Just $ ExportGroup lev "" doc
+ mkExportItem (L _ (DocD (DocCommentNamed _ doc)), _, _) = Just $ ExportDoc doc
mkExportItem (decl, doc, subs) = Just $ ExportDecl decl doc subdocs []
where subdocs = [ (n, doc) | (n, Just doc) <- subs ]