]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/ocaml-http/examples/timeout.ml
bumped changelog line to match upload date
[helm.git] / helm / DEVEL / ocaml-http / examples / timeout.ml
index 261b8ee3a705382c57612599ef6111e34ffb1d57..84e989b94d22e02b5ffb699cf43889d7596a5cc4 100644 (file)
@@ -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
@@ -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