Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
-open Http_daemon;;
+open Http_types
+
(* start an http daemon that alway respond with a 200 status code and an empty
content *)
-start ~port:9999 ~addr:"localhost" (fun _ _ outchan -> respond outchan)
+let spec =
+ { Http_daemon.default_spec with
+ callback = (fun _ outchan -> Http_daemon.respond outchan);
+ port = 9999;
+ }
+
+let _ = Http_daemon.main spec