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'