*)
open Http_daemon;;
-open Http_response;;
(* start an http daemon that alway respond with a 200 status code and an empty
content *)
-start ~port:9999 (fun _ _ -> respond_with (new Http_response.response))
+start ~port:9999 (fun _ _ outchan -> respond outchan)