(*
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
*)
let callback req outchan =
- Http_daemon.respond_error ~body:"AH AH AH :-P" outchan
+ Http_daemon.respond_error ~body:"AH AH AH :-P\n" outchan
in
-Http_daemon.start' ~port:9999 ~fork:false ~timeout:(Some 5) callback
+Http_daemon.start' ~port:9999 ~mode:`Single ~timeout:(Some 5) callback