aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface')
-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
{-