From 27da4233974f10392fce1cf8e91790b282a44c92 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 30 May 2006 08:10:47 +0000 Subject: [PATCH] ZACK: ported to the latest ocaml-http API --- helm/software/daemons/graphs/tools/drawGraph.ml | 3 ++- helm/software/daemons/graphs/tools/uriSetQueue.ml | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/helm/software/daemons/graphs/tools/drawGraph.ml b/helm/software/daemons/graphs/tools/drawGraph.ml index f7c817496..0dc9800fe 100644 --- a/helm/software/daemons/graphs/tools/drawGraph.ml +++ b/helm/software/daemons/graphs/tools/drawGraph.ml @@ -101,6 +101,7 @@ Sys.chdir (Helm_registry.get "draw_graph.dir"); printf "%s started and listening on port %d\n" daemon_name port; printf "current directory is %s\n" (Sys.getcwd ()); flush stdout; -Http_daemon.start' ~port callback; +let d_spec = Http_daemon.daemon_spec ~port ~callback () in +Http_daemon.main d_spec; printf "%s is terminating, bye!\n" daemon_name diff --git a/helm/software/daemons/graphs/tools/uriSetQueue.ml b/helm/software/daemons/graphs/tools/uriSetQueue.ml index 86bfe35f3..9c94d4e9a 100644 --- a/helm/software/daemons/graphs/tools/uriSetQueue.ml +++ b/helm/software/daemons/graphs/tools/uriSetQueue.ml @@ -192,6 +192,7 @@ Helm_registry.load_from configuration_file; let port = Helm_registry.get_int "uri_set_queue.port" in printf "%s started and listening on port %d\n" daemon_name port; flush stdout; -Http_daemon.start' ~port ~mode:`Thread callback; +let d_spec = Http_daemon.daemon_spec ~port ~mode:`Thread ~callback () in +Http_daemon.main d_spec; printf "%s is terminating, bye!\n" daemon_name -- 2.39.2