Commit 3a9ecb9c authored by Karoline Malmkjaer's avatar Karoline Malmkjaer

Workaround for ":" in windows paths not being interpreted as a URL.

parent d0592847
......@@ -6,7 +6,14 @@ let start_with s p =
else None
let is_url s =
try let _ = Neturl.extract_url_scheme s in true
try
match Sys.os_type with
| "Cygwin" | "Win32" ->
let uscheme = Neturl.extract_url_scheme s in
if String.length uscheme == 1
then false
else true
| _ -> let _ = Neturl.extract_url_scheme s in true
with Neturl.Malformed_URL -> false
let no_load_url s =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment