From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 9 Sep 2004 16:01:21 +0000 (+0000)
Subject: ported to ocamlnet 0.98
X-Git-Tag: moogle_mathql~8
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=8947cb72c27fb626e5ea9adc527482663a7fd725;p=helm.git

ported to ocamlnet 0.98
---

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);
 }