Merge pull request #444 from trofi/master

fix doc generation failure against haddock-2.10.0
This commit is contained in:
John MacFarlane 2012-03-12 08:36:40 -07:00
commit 1b1d7d570a

View file

@ -228,14 +228,14 @@ bulletListItemAtDepth depth = try $ do
return (p:sublist)
-- | Ordered List of given depth, depth being the number of
-- leading '#'
-- leading '#'
orderedListAtDepth :: Int -> GenParser Char ParserState Block
orderedListAtDepth depth = try $ do
items <- many1 (orderedListItemAtDepth depth)
return (OrderedList (1, DefaultStyle, DefaultDelim) items)
-- | Ordered List Item of given depth, depth being the number of
-- leading '#'
-- leading '#'
orderedListItemAtDepth :: Int -> GenParser Char ParserState [Block]
orderedListItemAtDepth depth = try $ do
count depth (char '#')