Commit f4dacfb9 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-02-06 23:29:51 by beppe] Spotted a bug

Original author: beppe
Date: 2004-02-06 23:29:51+00:00
parent b30c222b
......@@ -18,6 +18,11 @@ ifdef NETCLIENT then
let load_url s =
match Neturl.extract_url_scheme s with
| "http" -> Http_client.Convenience.http_get s
| "file" ->
let msg =
Printf.sprintf "FIXME: write in url.ml the code so that netclient handle file:// protocol"
in
raise (Location.Generic msg)
| sc ->
let msg =
Printf.sprintf "Error: netclient does not handle the %s protocol" sc
......
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