aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-08-03 17:39:55 +0000
committerDavid Waern <david.waern@gmail.com>2008-08-03 17:39:55 +0000
commitca4f3779257dcfe2005cc980035c1c664389a8d1 (patch)
tree946fa0b91065df670246b22b21f9fc8693aa0a35 /src/Haddock
parent21d4c0d4605489b547feeaed8bfef3f953fd69be (diff)
Do not filter out doc declarations
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Create.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index d04b0e39..4380c0ee 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -269,6 +269,8 @@ filterDecls decls = filter (isHandled . unL . fst) decls
isHandled (TyClD {}) = True
isHandled (InstD {}) = True
isHandled (SigD d) = isVanillaLSig (reL d)
+ -- we keep doc declarations to be able to get at named docs
+ isHandled (DocD _) = True
isHandled _ = False