Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
-let callback _ _ outchan =
- output_string outchan "Here you are!\n";
- flush outchan
-in
-Http_daemon.start ~port:9999 ~timeout:(Some 10) callback
+open Http_types
+
+let spec =
+ { Http_daemon.default_spec with
+ callback = (fun _ outchan -> Http_daemon.respond ~body:"foo" outchan);
+ timeout = Some 10;
+ }
+
+let _ = Http_daemon.main spec
+