diff options
| author | Stephane Glondu <steph@glondu.net> | 2011-07-22 00:32:59 +0200 |
|---|---|---|
| committer | Stéphane Glondu <glondu@debian.org> | 2023-08-09 13:39:35 +0200 |
| commit | bf88c31cceab415b605216aad86bf8559b6fad9b (patch) | |
| tree | 9e594363df583cb00fa7c2c5c3ecb6fb97c13507 | |
| parent | fac1adbb671949a11824cf367f28512e9db847a7 (diff) | |
Compile with ocamlnet 3.3.5
Gbp-Pq: Name 0002-Compile-with-ocamlnet-3.3.5.patch
| -rw-r--r-- | XmlRpcServer.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/XmlRpcServer.ml b/XmlRpcServer.ml index 3d4f130..47d6a8b 100644 --- a/XmlRpcServer.ml +++ b/XmlRpcServer.ml @@ -331,13 +331,11 @@ object (self) Netcgi_cgi.run ~config ~output_type:(`Transactional buffered) self#process end -open Netcgi1_compat - class netplex ?(parallelizer=Netplex_mp.mp()) ?(handler="xmlrpc") () = object (self) inherit base - method private process env (cgi : Netcgi_types.cgi_activation) = + method private process env (cgi : Netcgi.cgi_activation) = match cgi#request_method with | `POST -> let input = cgi#argument_value "BODY" in @@ -377,8 +375,8 @@ object (self) } in let config_cgi = - { Netcgi_env.default_config with - Netcgi_env.permitted_input_content_types = [ "text/xml" ] + { Netcgi.default_config with + Netcgi.permitted_input_content_types = [ "text/xml" ] } in let handlers = [handler, xmlrpc] in |