X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_env.mli;h=5e5a0496cb0ac4336d57d71208f88734f3355bc5;hb=0aaed6f96b856d1181a3cd1f2ef3ea4a91990771;hp=cb1731792e1140fa5fa733367bc67b37802576d5;hpb=384c369d4cbf5dd6cf1013902d3a218260400e73;p=helm.git

diff --git a/helm/ocaml/getter/http_getter_env.mli b/helm/ocaml/getter/http_getter_env.mli
index cb1731792..5e5a0496c 100644
--- a/helm/ocaml/getter/http_getter_env.mli
+++ b/helm/ocaml/getter/http_getter_env.mli
@@ -45,15 +45,15 @@ val cic_dir       : string lazy_t         (* XMLs' directory  for CIC*)
 val nuprl_dir     : string lazy_t         (* XMLs' directory for NuPRL*)
 val rdf_dir       : string lazy_t         (* RDFs' directory *)
 val dtd_dir       : string lazy_t         (* DTDs' root directory *)
-val servers_file  : string lazy_t         (* servers.txt file *)
+val servers_file  : string option lazy_t  (* servers.txt file *)
 val port          : int lazy_t            (* port on which getter listens *)
-val dtd_base_url  : string lazy_t         (* base URL for DTD downloading *)
+val dtd_base_urls : string list lazy_t    (* base URLs for document patching *)
 
   (* {2 derived data} *)
 
 val host          : string lazy_t         (* host on which getter listens *)
 val my_own_url    : string lazy_t         (* URL at which contact getter *)
-val servers       : (int * string) list lazy_t
+val servers       : unit -> (int * string) list
                                     (* (position * server) list *)
 val cache_mode    : encoding lazy_t       (* cached files encoding *)