fixed parse error for ocaml 3.08

[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 8e6ef7d549eb777b5a3992e3b0fc66b651964641..f65b5b1690ee47c010460012c8d1a99524d18671 100644 (file)
--- 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);
 }