Make protocol-relative URIs work again.

Closes #2737.
2026-08-26 02:06:32 +00:00 · 2016-02-23 21:58:10 -08:00
parent 0180807a6c
commit f2bd6fd37c
1 changed files with 4 additions and 2 deletions
@@ -892,8 +892,10 @@ readDataFileUTF8 userDir fname =
 parseURIReference' :: String -> Maybe URI
 parseURIReference' s =
  case parseURIReference s of
-       Just u | length (uriScheme u) > 2 -> Just u
-       _                                 -> Nothing
+       Just u
+         | length (uriScheme u) > 2  -> Just u
+         | null (uriScheme u)        -> Just u  -- protocol-relative
+       _                             -> Nothing

 -- | Fetch an image or other item from the local filesystem or the net.
 -- Returns raw content and maybe mime type.