From ca4f3779257dcfe2005cc980035c1c664389a8d1 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 3 Aug 2008 17:39:55 +0000
Subject: Do not filter out doc declarations

---
 src/Haddock/Interface/Create.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Haddock')

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
 
 
-- 
cgit v1.2.3