@@ -395,7 +395,7 @@ schemes = ["coap","doi","javascript","aaa","aaas","about","acap","cap","cid",
395395-- | Parses a URI. Returns pair of original and URI-escaped version.
396396uri :: Parser [Char] st (String, String)
397397uri = try $ do
398− scheme <- oneOfStrings schemes
398+ scheme <- oneOfStringsCI schemes
399399 char ':'
400400 -- /^[\/\w\u0080-\uffff]+|%[A-Fa-f0-9]+|&#?\w+;|(?:[,]+|[\S])[%&~\w\u0080-\uffff]/
401401 -- We allow punctuation except at the end, since