diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-07-11 08:31:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-11 08:31:29 -0700 |
| commit | b30afc2009bf22d49ceaadf1b7b94c298386c89a (patch) | |
| tree | 02028c0dffdee270fba594cb5b53cba89f5827ec /src/Text/Pandoc | |
| parent | c83b578f58df11354769eac945aaab456f416a39 (diff) | |
| parent | 8fa4e8bff1a59a734721580f7a292e448d5a335f (diff) | |
| download | pandoc-b30afc2009bf22d49ceaadf1b7b94c298386c89a.tar.gz | |
Merge pull request #273 from qerub/master
Textile reader: Make it possible to have colons after links.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 19357b343..12d299aa4 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -465,7 +465,7 @@ link :: GenParser Char ParserState Inline link = try $ do name <- surrounded (char '"') inline char ':' - url <- manyTill (anyChar) (lookAhead $ (space <|> try (oneOf ".;," >> (space <|> newline)))) + url <- manyTill (anyChar) (lookAhead $ (space <|> try (oneOf ".;,:" >> (space <|> newline)))) return $ Link name (url, "") -- | Detect plain links to http or email. |