aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <unknown>2007-08-16 16:51:11 +0000
committerDavid Waern <unknown>2007-08-16 16:51:11 +0000
commit251378dd7212199bbf1aa4b4377109a8534271d8 (patch)
tree4b82cd91e8e051b1705636343485830cefa52274
parentfe4e174edc080f0e288eb51adaec732e4102408f (diff)
Fix haddock comment errors in Haddock.Types
-rw-r--r--src/Haddock/Types.hs70
1 files changed, 47 insertions, 23 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 6ae2309e..ccac6014 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -22,29 +22,53 @@ data DocOption
deriving (Eq, Show)
data ExportItem name
- = ExportDecl
- Name -- ^ The original name
- (LHsDecl name) -- ^ A declaration
- (Maybe (HsDoc name)) -- ^ Maybe a doc comment
- [InstHead name] -- ^ Instances relevant to this declaration
-
- | ExportNoDecl -- ^ An exported entity for which we have no
- -- documentation (perhaps because it resides in
- -- another package)
- Name -- ^ The original name
- name -- ^ Where to link to
- [name] -- ^ Subordinate names
-
- | ExportGroup -- ^ A section heading
- Int -- ^ section level (1, 2, 3, ... )
- String -- ^ Section "id" (for hyperlinks)
- (HsDoc name) -- ^ Section heading text
-
- | ExportDoc -- ^ Some documentation
- (HsDoc name)
-
- | ExportModule -- ^ A cross-reference to another module
- Module
+
+ = ExportDecl {
+
+ -- | The original name
+ expItemName :: Name,
+
+ -- | A declaration
+ expItemDecl :: LHsDecl name,
+
+ -- | Maybe a doc comment
+ expItemMbDoc :: Maybe (HsDoc name),
+
+ -- | Instances relevant to this declaration
+ expItemInstances :: [InstHead name]
+
+ } -- ^ An exported declaration
+
+ | ExportNoDecl {
+ -- | The original name
+ expItemName :: Name,
+
+ -- | Where to link to
+ expItemLinkTarget :: name,
+
+ -- | Subordinate names
+ expItemSubs :: [name]
+
+ } -- ^ An exported entity for which we have no
+ -- documentation (perhaps because it resides in
+ -- another package)
+
+ | ExportGroup {
+
+ -- | Section level (1, 2, 3, ... )
+ expItemSectionLevel :: Int,
+
+ -- | Section id (for hyperlinks)
+ expItemSectionId :: String,
+
+ -- | Section heading text
+ expItemSectionText :: HsDoc name
+
+ } -- ^ A section heading
+
+ | ExportDoc (HsDoc name) -- ^ Some documentation
+
+ | ExportModule Module -- ^ A cross-reference to another module
type InstHead name = ([HsPred name], name, [HsType name])
type ModuleMap = Map Module HaddockModule