@@ -892,8 +892,10 @@ readDataFileUTF8 userDir fname =
892892parseURIReference' :: String -> Maybe URI
893893parseURIReference' s =
894894 case parseURIReference s of
895− Just u | length (uriScheme u) > 2 -> Just u
896− _ -> Nothing
895+ Just u
896+ | length (uriScheme u) > 2 -> Just u
897+ | null (uriScheme u) -> Just u -- protocol-relative
898+ _ -> Nothing
897899
898900-- | Fetch an image or other item from the local filesystem or the net.
899901-- Returns raw content and maybe mime type.