diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-05-23 09:49:56 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-23 09:49:56 +0200 |
| commit | 66fa38ed1c27935fc57677d9c63ac9263958e3fd (patch) | |
| tree | acba5c3c913ee85170a3f6653852cd9cd76051ab /src/Text/Pandoc/Shared.hs | |
| parent | 5debb0da0f94d1454d51cacede7c4844f01cc2f5 (diff) | |
Shared.isURI: allow uppercase versions of known schemes.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 7a1e6f3e3..a6c6fb95f 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -839,7 +839,8 @@ schemes = Set.fromList isURI :: String -> Bool isURI = maybe False hasKnownScheme . parseURI where - hasKnownScheme = (`Set.member` schemes) . filter (/= ':') . uriScheme + hasKnownScheme = (`Set.member` schemes) . map toLower . + filter (/= ':') . uriScheme --- --- Squash blocks into inlines |