added "replace" method which interfaces Dbm.replace function

diff --git a/helm/http_getter/http_getter_map.ml b/helm/http_getter/http_getter_map.ml
index 06699f1781a237153c489d950fc89e8ee6a8464c..b7ac1c605d7a4d435f9642205dd1a315e07fc2c6 100644 (file)
--- 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

diff --git a/helm/http_getter/http_getter_map.mli b/helm/http_getter/http_getter_map.mli
index ae9cf319f0b8a39e2e95fe0d076eaaca263c0192..720484f31c1eca747a4738f5c6f746dce3c0065b 100644 (file)
--- a/helm/http_getter/http_getter_map.mli
+++ b/helm/http_getter/http_getter_map.mli
@@ -33,6 +33,7 @@ class map:
   string ->
     object
       method add: string -> string -> unit
+      method replace: string -> string -> unit
       method remove: string -> unit
       method resolve: string -> string
       method iter: (string -> string -> unit) -> unit