X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_parser_sanity.ml;h=f65b5b1690ee47c010460012c8d1a99524d18671;hb=5db29580b497be5d9a53cc0848200656dc87b071;hp=d66be8a615a50585cb51b406017dd706a235bc6c;hpb=80a7a8d3389af9590f54743c898b6d76a0b296f8;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_parser_sanity.ml b/helm/DEVEL/ocaml-http/http_parser_sanity.ml
index d66be8a61..f65b5b169 100644
--- 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);
 }