Fix textile reader hanging.
Textile reader hung on
pandoc -f textile http://johnmacfarlane.net/pandoc/demo/example25.textile
The reader no longer hangs.
commit0050b509052ff81ba021b98fdbc573d3475ed74c
authormpickering <matthewtpickering@gmail.com>
dateWed 7 May 2014, 13:03 (12 years ago)
parent0048b8c
src/Text/Pandoc/Readers/Textile.hs+2−1
@@ -513,7 +513,8 @@ link = try $ do
513513 char '"' *> notFollowedBy (oneOf " \t\n\r")
514514 attr <- attributes
515515 name <- trimInlines . mconcat <$>
516− withQuoteContext InSingleQuote (manyTill inline (try (string "\":")))
516+ withQuoteContext InDoubleQuote (many1Till inline (try (char '"')))
517+ char ':'
517518 let stop = if bracketed
518519 then char ']'
519520 else lookAhead $ space <|>