diff options
| author | David Waern <david.waern@gmail.com> | 2008-08-03 17:39:55 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-08-03 17:39:55 +0000 |
| commit | ca4f3779257dcfe2005cc980035c1c664389a8d1 (patch) | |
| tree | 946fa0b91065df670246b22b21f9fc8693aa0a35 | |
| parent | 21d4c0d4605489b547feeaed8bfef3f953fd69be (diff) | |
Do not filter out doc declarations
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 2 |
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 |