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