added a TODO bug comment

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index 7b59cf1220f6c8c63eeecd8755d6bcdc7afb638d..54269279535eaf0828818a2770672d0fa24375d4 100644 (file)
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -3,8 +3,7 @@
  *    Stefano Zacchiroli <zack@cs.unibo.it>
  *    for the HELM Team http://helm.cs.unibo.it/
  *
- *  This file is part of HELM, an Hypertextual, Electronic
- *  Library of Mathematics, developed at the Computer Science
+ *  This file is part of HELM, an Hypertextual, Electronic *  Library of Mathematics, developed at the Computer Science
  *  Department, University of Bologna, Italy.
  *
  *  HELM is free software; you can redistribute it and/or
@@ -77,6 +76,10 @@ let safe_getenv ?(from = Both) var =
       | v -> return_value var v)))
 
 let servers_file = safe_getenv "HTTP_GETTER_SERVERS_FILE"
+
+  (* TODO BUG HERE: is commented lines are included in the servers file the
+  server index (used for example by the remove_server method) gets out of sync!
+  *)
 let parse_servers () =
   List.rev (Http_getter_misc.fold_file
     (fun servers line ->