aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 05:54:20 +0000
committerIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 05:54:20 +0000
commit708bfb537b377129ea81025efbef3f6270fb827f (patch)
tree9235d394f4e1cb465d758618e4c765bb817e2754 /src/Haddock/Interface/Create.hs
parent180a63683c98598dee27ab7a2a93681b925cf50c (diff)
fix horrible named-docs-disappearing bug :-)
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs21
1 files changed, 16 insertions, 5 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 41028100..29391702 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -347,12 +347,23 @@ collect d doc_so_far (e:es) =
Just d0 -> finishedDoc d0 doc_so_far (collect (Just e) docStringEmpty es)
+-- This used to delete all DocD:s, unless doc was DocEmpty,
+-- which I suppose means you could kill a DocCommentNamed
+-- by:
+--
+-- > -- | killer
+-- >
+-- > -- $victim
+--
+-- Anyway I accidentally deleted the DocEmpty condition without
+-- realizing it was necessary for retaining some DocDs (at least
+-- DocCommentNamed), so I'm going to try just not testing any conditions
+-- and see if anything breaks. It really shouldn't break anything
+-- to keep more doc decls around, IMHO.
+--
+-- -Isaac
finishedDoc :: Decl -> MaybeDocStringsFast -> [(Decl, MaybeDocStrings)] -> [(Decl, MaybeDocStrings)]
-finishedDoc d doc rest | notDocDecl d = (d, docStringToList doc) : rest
- where
- notDocDecl (L _ (DocD _)) = False
- notDocDecl _ = True
-finishedDoc _ _ rest = rest
+finishedDoc d doc rest = (d, docStringToList doc) : rest
{-