X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2FclientHTTP.ml;h=b4e0e26b67e65194375f02749e1aa2de074fad10;hb=ba7f920fa28fd31f9eaf33b1511bec6aee268eba;hp=12641147f3f1cf88c2c9aa7e4a5d729a06023a3a;hpb=a524b2a00155ef09b11fcbf11fe08345e3ddab1a;p=helm.git

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
index 12641147f..b4e0e26b6 100644
--- a/helm/ocaml/getter/clientHTTP.ml
+++ b/helm/ocaml/getter/clientHTTP.ml
@@ -40,10 +40,9 @@ let get uri =
 ;;
 
 let get_and_save uri dest_filename =
- let reply = get uri
- and out_channel = open_out dest_filename in
-  output_string out_channel reply ;
-  close_out out_channel
+ let out_channel = open_out dest_filename in
+ Http_user_agent.get_iter (output_string out_channel) uri;
+ close_out out_channel
 ;;
 
 let get_and_save_to_tmp uri =