From 5971721ec1ef862980c977fb0eaaf3521a0a1f6e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 15 Jan 2013 11:48:21 -0800
Subject: Case-insensitive parsing of URI schemes.

---
 src/Text/Pandoc/Parsing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 55e54efb4..1bc0e689a 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -395,7 +395,7 @@ schemes = ["coap","doi","javascript","aaa","aaas","about","acap","cap","cid",
 -- | Parses a URI. Returns pair of original and URI-escaped version.
 uri :: Parser [Char] st (String, String)
 uri = try $ do
-  scheme <- oneOfStrings schemes
+  scheme <- oneOfStringsCI schemes
   char ':'
   -- /^[\/\w\u0080-\uffff]+|%[A-Fa-f0-9]+|&#?\w+;|(?:[,]+|[\S])[%&~\w\u0080-\uffff]/
   -- We allow punctuation except at the end, since
-- 
cgit v1.2.3