ported to ocamlnet 0.98

[helm.git] / helm / DEVEL / ocaml-http / http_parser_sanity.ml

diff --git a/helm/DEVEL/ocaml-http/http_parser_sanity.ml b/helm/DEVEL/ocaml-http/http_parser_sanity.ml
index d66be8a615a50585cb51b406017dd706a235bc6c..f65b5b1690ee47c010460012c8d1a99524d18671 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_parser_sanity.ml
+++ b/helm/DEVEL/ocaml-http/http_parser_sanity.ml
@@ -37,6 +37,7 @@ type url_syntax_option =
 let request_uri_syntax = {
   url_enable_scheme    = Url_part_not_recognized;
   url_enable_user      = Url_part_not_recognized;
+  url_enable_user_param= Url_part_not_recognized;
   url_enable_password  = Url_part_not_recognized;
   url_enable_host      = Url_part_not_recognized;
   url_enable_port      = Url_part_not_recognized;
@@ -46,6 +47,7 @@ let request_uri_syntax = {
   url_enable_fragment  = Url_part_not_recognized;
   url_enable_other     = Url_part_not_recognized;
   url_accepts_8bits    = false;
+  url_enable_relative  = true;
   url_is_valid         = (fun _ -> true);
 }