Shared.isURI: allow uppercase versions of known schemes.
commit66fa38ed1c27935fc57677d9c63ac9263958e3fd
authorJohn MacFarlane <jgm@berkeley.edu>
dateTue 23 May 2017, 09:49 (9 years ago)
parent5debb0d
src/Text/Pandoc/Shared.hs+2−1
@@ -839,7 +839,8 @@ schemes = Set.fromList
839839isURI :: String -> Bool
840840isURI = maybe False hasKnownScheme . parseURI
841841 where
842− hasKnownScheme = (`Set.member` schemes) . filter (/= ':') . uriScheme
842+ hasKnownScheme = (`Set.member` schemes) . map toLower .
843+ filter (/= ':') . uriScheme
843844
844845---
845846--- Squash blocks into inlines