X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_env.mli;h=fe660d84944a807d35d76ae586741df6c7fb3ec8;hb=3f81a72dbdc7f2ffb17cc1ecd4e6a39270891c77;hp=6d4d6312f2ab726c15bb24523179b652affb2d4e;hpb=4a44fbdb0e13c8d515f62d33e33e6b8cc519d74f;p=helm.git

diff --git a/helm/http_getter/http_getter_env.mli b/helm/http_getter/http_getter_env.mli
index 6d4d6312f..fe660d849 100644
--- a/helm/http_getter/http_getter_env.mli
+++ b/helm/http_getter/http_getter_env.mli
@@ -1,5 +1,5 @@
 (*
- * Copyright (C) 2003:
+ * Copyright (C) 2003-2004:
  *    Stefano Zacchiroli <zack@cs.unibo.it>
  *    for the HELM Team http://helm.cs.unibo.it/
  *
@@ -53,9 +53,9 @@ val dtd_base_url  : string        (* base URL for DTD downloading *)
 
 val host          : string          (* host on which getter listens *)
 val my_own_url    : string          (* URL at which contact getter *)
-val servers       : string list ref (* servers list. DO NOT CHANGE this list,
-                                    modifications wont be preserved *)
-val cache_mode    : http_getter_encoding  (* cached files encoding *)
+val servers       : unit -> (int * string) list
+                                    (* (position * server) list *)
+val cache_mode    : encoding        (* cached files encoding *)
 val conf_file     : string          (* configuration file's full path *)
 val conf_dir      : string          (* directory where conf_file resides *)