From 0050b509052ff81ba021b98fdbc573d3475ed74c Mon Sep 17 00:00:00 2001
From: mpickering <matthewtpickering@gmail.com>
Date: Wed, 7 May 2014 13:03:45 +0100
Subject: Fix textile reader hanging.
Textile reader hung on
pandoc -f textile http://johnmacfarlane.net/pandoc/demo/example25.textile
The reader no longer hangs.
---
src/Text/Pandoc/Readers/Textile.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'src')
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 <|>
--
cgit v1.2.3