diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-01-15 11:48:21 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-15 11:48:21 -0800 |
| commit | 5971721ec1ef862980c977fb0eaaf3521a0a1f6e (patch) | |
| tree | 78cd7e49f2ca18776bb3840fbef909bf3abd1e8a /src/Text | |
| parent | 95c02f6b57af07ae4a087e888c2673fe3663c313 (diff) | |
| download | pandoc-5971721ec1ef862980c977fb0eaaf3521a0a1f6e.tar.gz | |
Case-insensitive parsing of URI schemes.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 55e54efb4..1bc0e689a 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -395,7 +395,7 @@ schemes = ["coap","doi","javascript","aaa","aaas","about","acap","cap","cid", -- | Parses a URI. Returns pair of original and URI-escaped version. uri :: Parser [Char] st (String, String) uri = try $ do - scheme <- oneOfStrings schemes + scheme <- oneOfStringsCI schemes char ':' -- /^[\/\w\u0080-\uffff]+|%[A-Fa-f0-9]+|&#?\w+;|(?:[,]+|[\S])[%&~\w\u0080-\uffff]/ -- We allow punctuation except at the end, since |