MetadataDB.clean now cleans the getter maps (calling Http_getter.unregister)

[helm.git] / helm / ocaml / metadata / metadataDb.ml

diff --git a/helm/ocaml/metadata/metadataDb.ml b/helm/ocaml/metadata/metadataDb.ml
index 7eaf4d88167b875957853bbe0f1b1fd875520ed9..df79118f2cb796dbc2233c9115c3b79e46ee3c9c 100644 (file)
--- a/helm/ocaml/metadata/metadataDb.ml
+++ b/helm/ocaml/metadata/metadataDb.ml
@@ -130,5 +130,6 @@ let clean ~(dbd:Mysql.dbd) ~owner =
   in
   List.iter del_from
     [sort_tbl; rel_tbl; obj_tbl; conclno_tbl; conclno_hyp_tbl; name_tbl;
-    owners_tbl]
+    owners_tbl];
+  List.iter Http_getter.unregister owned_uris