X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter.ml;h=04eaed9c44762189fea00f43199f9736b303f94e;hb=c5c48f3d3515f1dd95657245922ec1f340e17f70;hp=45d476047958e6e2a0a94e7bb8000f08e3705708;hpb=386ef7982219467087f0bfe69a0fb505e83bd14f;p=helm.git

diff --git a/helm/http_getter/http_getter.ml b/helm/http_getter/http_getter.ml
index 45d476047..04eaed9c4 100644
--- a/helm/http_getter/http_getter.ml
+++ b/helm/http_getter/http_getter.ml
@@ -1,5 +1,5 @@
 (*
- *  Copyright (C) 2000, HELM Team.
+ *  Copyright (C) 2003, HELM Team.
  *
  *  This file is part of HELM, an Hypertextual, Electronic
  *  Library of Mathematics, developed at the Computer Science
@@ -214,6 +214,7 @@ in
 let (index_line_sep_RE, index_sep_RE) =
   (Pcre.regexp "[ \t]+", Pcre.regexp "\n+")
 in
+  (* TODO support 'file://.*' servers *)
 let update_from_server logmsg server_url = (* use global maps *)
   debug_print ("Updating information from " ^ server_url);
   let xml_url_of_uri = function