[haddock @ 2003-11-06 12:39:46 by simonmar]

- Add definition lists, marked up like this:

	-- | This is a definition list:
	--
	--   [@foo@] The description of @foo@.
	--
	--   [@bar@] The description of @bar@.

  Cunningly, the [] characters are not treated specially unless a [ is
  found at the beginning of a paragraph, in which case the ] becomes
  special in the following text.


- Add --use-contents and --gen-contents, along the lines of
  --use-index and --gen-index added yesterday.  Now we can generate a
  combined index and contents for the whole of the hierarchical
  libraries, and in theory the index/contents on the system could
  be updated as new packages are added.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index ef32ae80..ad90c1a2 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -213,11 +213,14 @@ markupRename = Markup {
   markupMonospaced    = liftM DocMonospaced,
   markupUnorderedList = liftM DocUnorderedList . sequence,
   markupOrderedList   = liftM DocOrderedList . sequence,
+  markupDefList       = liftM DocDefList . mapM markupDef,
   markupCodeBlock     = liftM DocCodeBlock,
   markupURL	      = return . DocURL,
   markupAName	      = return . DocAName
   }
 
+markupDef (ma,mb) = do a <- ma; b <- mb; return (a,b)
+
 renameDoc :: Doc -> RnM Doc
 renameDoc = markup markupRename