^
Hyphen in the name of the server were not allowed. Fixed.
open Printf;;
let trailing_dot_gz_RE = Pcre.regexp "\\.gz$" (* for g{,un}zip *)
open Printf;;
let trailing_dot_gz_RE = Pcre.regexp "\\.gz$" (* for g{,un}zip *)
-let url_RE = Pcre.regexp "^([\\w.]+)(:(\\d+))?(/.*)?$"
+let url_RE = Pcre.regexp "^([\\w.-]+)(:(\\d+))?(/.*)?$"
let http_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^http://"
let file_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^file://"
let dir_sep_RE = Pcre.regexp "/"
let http_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^http://"
let file_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^file://"
let dir_sep_RE = Pcre.regexp "/"