aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs3
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 <|>