fetchItem: don't treat UNC paths as protocol-relative URLs.

These are paths beginning `//?/UNC/...`. Closes #5127.
jgm · Mar 22, 2019 · 97acf15 · 97acf15
1 parent b3473df
commit 97acf15
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
@@ -569,7 +569,8 @@ downloadOrRead s = do
        case parseURIReference' s' of
             Just u' -> openURL $ show $ u' `nonStrictRelativeTo` u
             Nothing -> openURL s' -- will throw error
-    (Nothing, s'@('/':'/':_)) ->  -- protocol-relative URI
+    (Nothing, s'@('/':'/':c:_)) | c /= '?' ->  -- protocol-relative URI
+                -- we exclude //? because of //?UNC/ on Windows
        case parseURIReference' s' of
             Just u' -> openURL $ show $ u' `nonStrictRelativeTo` httpcolon
             Nothing -> openURL s' -- will throw error