X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_tcp_server.ml;h=699e8cfdce5abcbb5a03898ca4887f640fb5405c;hb=a864255e782859e2b3b7da08297f5d3fe2ee710d;hp=f457e050a4bbf4bdfbe0270df84c5b089eccbb9d;hpb=49b2f18c645a86c950bdfcd241329afe37da4d7e;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_tcp_server.ml b/helm/DEVEL/ocaml-http/http_tcp_server.ml
index f457e050a..699e8cfdc 100644
--- a/helm/DEVEL/ocaml-http/http_tcp_server.ml
+++ b/helm/DEVEL/ocaml-http/http_tcp_server.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
@@ -35,7 +35,7 @@ let wrap_callback_w_timeout ~callback ~timeout ~timeout_callback =
   | Some timeout -> (* wrap callback setting an handler for ALRM signal and an
                     alarm that ring after timeout seconds *)
       (fun inchan outchan ->
-        ignore (Sys.signal Sys.sigalrm (Sys.Signal_handle ~timeout_callback));
+        ignore (Sys.signal Sys.sigalrm (Sys.Signal_handle timeout_callback));
         ignore (Unix.alarm timeout);
         callback inchan outchan)