Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

fix doc generation failure against haddock-2.10.0

Browse source 
$ 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>
This commit is contained in:
Sergei Trofimovich 2012-03-12 10:40:08 +03:00
parent a768844751
commit e838cca4e6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/Textile.hs
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 '#')