diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-03-12 08:36:40 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-03-12 08:36:40 -0700 |
| commit | 1b1d7d570a4724de251e3ea2512dc91cf02a57f9 (patch) | |
| tree | 4b3199f1e0864c96224ceffb5190fc11b21621e7 | |
| parent | a7688447511feda6284b130d6b612e00410b0161 (diff) | |
| parent | e838cca4e6a9335446addc2618a91e6d6ecc202a (diff) | |
| download | pandoc-1b1d7d570a4724de251e3ea2512dc91cf02a57f9.tar.gz | |
Merge pull request #444 from trofi/master
fix doc generation failure against haddock-2.10.0
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 3b5954368..f33436835 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -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 '#') |