X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fexamples%2Ftimeout.ml;h=84e989b94d22e02b5ffb699cf43889d7596a5cc4;hb=3bb4ce11fb9d4c6375483a80344beb94c4517dd7;hp=261b8ee3a705382c57612599ef6111e34ffb1d57;hpb=6a8da4dd52033adfe80533f7467439aec1561147;p=helm.git diff --git a/helm/DEVEL/ocaml-http/examples/timeout.ml b/helm/DEVEL/ocaml-http/examples/timeout.ml index 261b8ee3a..84e989b94 100644 --- a/helm/DEVEL/ocaml-http/examples/timeout.ml +++ b/helm/DEVEL/ocaml-http/examples/timeout.ml @@ -2,7 +2,7 @@ (* OCaml HTTP - do it yourself (fully OCaml) HTTP daemon - Copyright (C) <2002> Stefano Zacchiroli + Copyright (C) <2002-2004> Stefano Zacchiroli 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 @@ -23,5 +23,4 @@ let callback _ _ outchan = output_string outchan "Here you are!\n"; flush outchan in -Http_daemon.start ~addr:"127.0.0.1" ~port:9999 ~timeout:(Some 10) callback - +Http_daemon.start ~port:9999 ~timeout:(Some 10) callback