X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_map.ml;h=b7ac1c605d7a4d435f9642205dd1a315e07fc2c6;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=06699f1781a237153c489d950fc89e8ee6a8464c;hpb=5d7d6bd5090f3f82279bef0b93b4b361a5b1d751;p=helm.git

diff --git a/helm/http_getter/http_getter_map.ml b/helm/http_getter/http_getter_map.ml
index 06699f178..b7ac1c605 100644
--- a/helm/http_getter/http_getter_map.ml
+++ b/helm/http_getter/http_getter_map.ml
@@ -48,6 +48,11 @@ class map dbname =
         with Dbm.Dbm_error "Entry already exists" -> raise (Key_already_in key)
       ))
 
+    method replace key value =
+      self#doWriter (lazy (
+        Dbm.replace db key value
+      ))
+
     method remove key =
       self#doWriter (lazy (
         try