fixed parse error for ocaml 3.08

[helm.git] / helm / DEVEL / ocaml-http / examples / dont_fork.ml

diff --git a/helm/DEVEL/ocaml-http/examples/dont_fork.ml b/helm/DEVEL/ocaml-http/examples/dont_fork.ml
index a64e661d045528177a8c69d6136ca8bc66697164..f053554963195f0342b197ad528ac4a0f8bec0ce 100644 (file)
--- a/helm/DEVEL/ocaml-http/examples/dont_fork.ml
+++ b/helm/DEVEL/ocaml-http/examples/dont_fork.ml
@@ -2,7 +2,7 @@
 (*
   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
@@ -20,6 +20,6 @@
 *)
 
 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