git.iko.soy/typeable/pandoc
on master help sign in
Shared.isURI: allow uppercase versions of known schemes.
66fa38eJohn MacFarlane
src/Text/Pandoc/Shared.hs+2−1
compare with master
unifiedsplit
@@ -839,7 +839,8 @@ schemes = Set.fromList
839isURI :: String -> Bool
839isURI :: String -> Bool
840isURI = maybe False hasKnownScheme . parseURI
840isURI = maybe False hasKnownScheme . parseURI
841 where
841 where
842− hasKnownScheme = (`Set.member` schemes) . filter (/= ':') . uriScheme
842+ hasKnownScheme = (`Set.member` schemes) . map toLower .
843+ filter (/= ':') . uriScheme
843
844
844---
845---
845--- Squash blocks into inlines
846--- Squash blocks into inlines