diff options
| author | mpickering <matthewtpickering@gmail.com> | 2014-05-07 13:03:45 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-05-07 09:32:25 -0700 |
| commit | 0050b509052ff81ba021b98fdbc573d3475ed74c (patch) | |
| tree | 0ddc61b856c202216a663de98f857e11a894846a /src | |
| parent | 0048b8c68c338048d2c78fc36cceba5fbe6f7110 (diff) | |
| download | pandoc-0050b509052ff81ba021b98fdbc573d3475ed74c.tar.gz | |
Fix textile reader hanging.
Textile reader hung on
pandoc -f textile http://johnmacfarlane.net/pandoc/demo/example25.textile
The reader no longer hangs.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 2f1fd30b4..f7c87ab5a 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -513,7 +513,8 @@ link = try $ do char '"' *> notFollowedBy (oneOf " \t\n\r") attr <- attributes name <- trimInlines . mconcat <$> - withQuoteContext InSingleQuote (manyTill inline (try (string "\":"))) + withQuoteContext InDoubleQuote (many1Till inline (try (char '"'))) + char ':' let stop = if bracketed then char ']' else lookAhead $ space <|> |