From 94eea46dcbe7a750cc9e9db0397f266886b70a15 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 30 May 2006 08:13:55 +0000 Subject: [PATCH] ZACK: ported to the latest ocaml-http API --- daemons/rdfly/rdfly.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/daemons/rdfly/rdfly.ml b/daemons/rdfly/rdfly.ml index 18c2e1587..54c87b8d8 100644 --- a/daemons/rdfly/rdfly.ml +++ b/daemons/rdfly/rdfly.ml @@ -188,8 +188,10 @@ let callback req ch = let main () = Sys.catch_break true; try - Http_daemon.start' - ~timeout:(Some 600) ~port:daemonport callback + let d_spec = + Http_daemon.daemon_spec ~timeout:(Some 600) ~port:daemonport ~callback () + in + Http_daemon.main d_spec with Sys.Break -> () in -- 2.39.2