aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-15 22:14:07 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-15 22:14:07 +0000
commit08e2aa223e55207c46df655976e46ed7aac60805 (patch)
tree2eeb8f7fa0467e8158ff17bc4c09f4c58d1e73c8
parent2fdedfb08ca1b52a801ea8a0ca5812015603c7c9 (diff)
Add DeclInfo to H.Types
-rw-r--r--src/Haddock/Backends/DevHelp.hs2
-rw-r--r--src/Haddock/Types.hs5
2 files changed, 6 insertions, 1 deletions
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