diff options
| -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 <|> |