diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-07-22 15:45:03 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-07-22 15:45:03 -0700 |
| commit | 27762affe3edd13ccb62a5450166b28fe73d15e6 (patch) | |
| tree | bdadc7c5bed90dabeeca38ca6a79aa6fdab66b68 /src/Text/Pandoc | |
| parent | 266caf70e51f2a20eb95c58deaa258807a377bb1 (diff) | |
| download | pandoc-27762affe3edd13ccb62a5450166b28fe73d15e6.tar.gz | |
Textile reader: disallow empty URL in explicit link.
Closes #3036.
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 25d687c1f..4ab0243fe 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -594,7 +594,7 @@ link = try $ do then char ']' else lookAhead $ space <|> try (oneOf "!.,;:" *> (space <|> newline)) - url <- manyTill nonspaceChar stop + url <- many1Till nonspaceChar stop let name' = if B.toList name == [Str "$"] then B.str url else name return $ if attr == nullAttr then B.link url "" name' |