From e838cca4e6a9335446addc2618a91e6d6ecc202a Mon Sep 17 00:00:00 2001 From: Sergei Trofimovich Date: Mon, 12 Mar 2012 10:40:08 +0300 Subject: 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 --- src/Text/Pandoc/Readers/Textile.hs | 4 ++-- 1 file 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 '#') -- cgit v1.2.3