(*
OCaml HTTP - do it yourself (fully OCaml) HTTP daemon
- Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>
+ Copyright (C) <2002-2004> Stefano Zacchiroli <zack@cs.unibo.it>
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
*)
open Http_daemon;;
-open Http_response;;
(* 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)
+