From 66fa38ed1c27935fc57677d9c63ac9263958e3fd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 23 May 2017 09:49:56 +0200
Subject: Shared.isURI: allow uppercase versions of known schemes.

---
 src/Text/Pandoc/Shared.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3