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 (fun _ _ outchan -> respond outchan)