summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Textile.hs
diff options
context:
space:
mode:
authorSergei Trofimovich <slyfox@gentoo.org>2012-03-12 10:40:08 +0300
committerSergei Trofimovich <slyfox@gentoo.org>2012-03-12 10:40:08 +0300
commite838cca4e6a9335446addc2618a91e6d6ecc202a (patch)
tree4b3199f1e0864c96224ceffb5190fc11b21621e7 /src/Text/Pandoc/Readers/Textile.hs
parenta7688447511feda6284b130d6b612e00410b0161 (diff)
fix doc generation failure against haddock-2.10.0
$ cabal configure --haddock-option=-v3 $ cabal haddock -v3 Creating interface... 100% ( 2 / 2) in 'Text.Pandoc.Readers.Native' Checking module Text.Pandoc.Readers.HTML... Creating interface... 50% ( 4 / 8) in 'Text.Pandoc.Readers.HTML' Checking module Text.Pandoc.Readers.Textile... Creating interface... haddock: internal error: lexical error /usr/bin/haddock returned ExitFailure 1 Patch changes UTF-8 spaces to ASCII spaces. It's a known haddock issue: http://www.haskell.org/pipermail/haskell-cafe/2012-March/099870.html Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'src/Text/Pandoc/Readers/Textile.hs')
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs4
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 '#')