X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fexamples%2Fdont_fork.ml;fp=helm%2FDEVEL%2Focaml-http%2Fexamples%2Fdont_fork.ml;h=a64e661d045528177a8c69d6136ca8bc66697164;hb=9ccf0bcd417b78840b52662465a6aafa0819ad27;hp=8d8eb45ccdec087789e8017d5b74f4875fc96031;hpb=a296f8dfa154ebfdcd6b4df34f5c3a455abecb15;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/examples/dont_fork.ml b/helm/DEVEL/ocaml-http/examples/dont_fork.ml
index 8d8eb45cc..a64e661d0 100644
--- a/helm/DEVEL/ocaml-http/examples/dont_fork.ml
+++ b/helm/DEVEL/ocaml-http/examples/dont_fork.ml
@@ -20,9 +20,6 @@
 *)
 
 let callback req outchan =
-  output_string outchan "FOO\n";
-  flush outchan;
-  Unix.sleep 5;
   Http_daemon.respond_error ~body:"AH AH AH :-P" outchan
 in
-Http_daemon.start' ~port:9999 ~fork:false callback
+Http_daemon.start' ~port:9999 ~fork:false ~timeout:(Some 5) callback