]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/ocaml-http/http_daemon.ml
renamed tcp_server module in http_tcp_server to avoid future
[helm.git] / helm / DEVEL / ocaml-http / http_daemon.ml
index c26d284ead6180f0b306011cd95852723b7845c1..8dfc83e5076e3af6e424a678b4a794e1589d361d 100644 (file)
@@ -296,8 +296,8 @@ let start
           outchan
   in
   match fork with
-  | true -> Tcp_server.ocaml_builtin ~sockaddr ~timeout daemon_callback 
-  | false -> Tcp_server.simple ~sockaddr ~timeout daemon_callback
+  | true -> Http_tcp_server.ocaml_builtin ~sockaddr ~timeout daemon_callback 
+  | false -> Http_tcp_server.simple ~sockaddr ~timeout daemon_callback
 
   (* OO request *)
 let start'