X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_parser_sanity.ml;h=f65b5b1690ee47c010460012c8d1a99524d18671;hb=ebc089606ccbb3e9dbde142542a1f98f5020b4dd;hp=8e6ef7d549eb777b5a3992e3b0fc66b651964641;hpb=86751d7b1e404034ac02244aad47f1bf29d9c46b;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_parser_sanity.ml b/helm/DEVEL/ocaml-http/http_parser_sanity.ml
index 8e6ef7d54..f65b5b169 100644
--- a/helm/DEVEL/ocaml-http/http_parser_sanity.ml
+++ b/helm/DEVEL/ocaml-http/http_parser_sanity.ml
@@ -2,7 +2,7 @@
 (*
   OCaml HTTP - do it yourself (fully OCaml) HTTP daemon
 
-  Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>
+  Copyright (C) <2002-2004> Stefano Zacchiroli <zack@cs.unibo.it>
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -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);
 }