X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fexamples%2Falways_ok_daemon.ml;h=d5d456d7481d9a22488c4802dcadb2168775ab4f;hb=bb236c2ac110124de92fa2d0fb2882d273a7f7eb;hp=020d4f600cfb2269b4ce9fb97504654dadaedb47;hpb=2f28bfb47f5fad6b3c5a705d9ede95700416dee8;p=helm.git diff --git a/helm/DEVEL/ocaml-http/examples/always_ok_daemon.ml b/helm/DEVEL/ocaml-http/examples/always_ok_daemon.ml index 020d4f600..d5d456d74 100644 --- a/helm/DEVEL/ocaml-http/examples/always_ok_daemon.ml +++ b/helm/DEVEL/ocaml-http/examples/always_ok_daemon.ml @@ -2,7 +2,7 @@ (* OCaml HTTP - do it yourself (fully OCaml) HTTP daemon - Copyright (C) <2002> Stefano Zacchiroli + Copyright (C) <2002-2004> Stefano Zacchiroli This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -19,8 +19,8 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *) -open Http.Daemon;; -open Http.Response;; +open Http_daemon;; (* start an http daemon that alway respond with a 200 status code and an empty content *) -start (fun _ _ -> respond_with (new Http.Response.response)) +start ~port:9999 ~addr:"localhost" (fun _ _ outchan -> respond outchan) +