From 08e2aa223e55207c46df655976e46ed7aac60805 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 15 Oct 2008 22:14:07 +0000
Subject: Add DeclInfo to H.Types

---
 src/Haddock/Backends/DevHelp.hs | 2 +-
 src/Haddock/Types.hs            | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Haddock/Backends/DevHelp.hs b/src/Haddock/Backends/DevHelp.hs
index 951e422c..76f320b5 100644
--- a/src/Haddock/Backends/DevHelp.hs
+++ b/src/Haddock/Backends/DevHelp.hs
@@ -7,7 +7,7 @@
 module Haddock.Backends.DevHelp (ppDevHelpFile) where
 
 import Haddock.ModuleTree
-import Haddock.Types
+import Haddock.Types hiding (Doc)
 import Haddock.Utils
 
 import Module
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 3951d030..c3f3e8ce 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -22,6 +22,11 @@ type Decl = LHsDecl Name
 type Doc  = HsDoc Name
 
 
+-- | A declaration that may have documentation, including its subordinates,
+-- which may also have documentation
+type DeclInfo = (Decl, Maybe Doc, [(Name, Maybe Doc)])
+
+
 {-! for DocOption derive: Binary !-}
 data DocOption
   = OptHide           -- ^ This module should not appear in the docs
-- 
cgit v1.2.3