diff options
author | David Waern <david.waern@gmail.com> | 2008-10-15 22:14:07 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-10-15 22:14:07 +0000 |
commit | 08e2aa223e55207c46df655976e46ed7aac60805 (patch) | |
tree | 2eeb8f7fa0467e8158ff17bc4c09f4c58d1e73c8 /src | |
parent | 2fdedfb08ca1b52a801ea8a0ca5812015603c7c9 (diff) |
Add DeclInfo to H.Types
Diffstat (limited to 'src')
-rw-r--r-- | src/Haddock/Backends/DevHelp.hs | 2 | ||||
-rw-r--r-- | src/Haddock/Types.hs | 5 |
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 |