diff --git a/lib/storage/filesystem.ml b/lib/storage/filesystem.ml
index bb5e979c..b315f4fb 100644
--- a/lib/storage/filesystem.ml
+++ b/lib/storage/filesystem.ml
@@ -110,10 +110,6 @@ module Impl = struct
       (key_to_fspath t key)
       (fun ic -> In_channel.length ic |> Int64.to_int)
 
-  let erase_values t keys =
-    Storage_intf.Base.erase_values
-      ~erase_fn:erase t keys
-
   let erase_prefix t pre =
     Storage_intf.Base.erase_prefix
       ~list_fn:list ~erase_fn:erase t pre
diff --git a/lib/storage/memory.ml b/lib/storage/memory.ml
index 61d7f645..f77eab3e 100644
--- a/lib/storage/memory.ml
+++ b/lib/storage/memory.ml
@@ -36,9 +36,6 @@ module Impl = struct
     Storage_intf.Base.set_partial_values
       ~set_fn:set ~get_fn:get t key append rv
 
-  let erase_values t keys =
-    Storage_intf.Base.erase_values ~erase_fn:erase t keys
-
   let list_prefix t pre =
     Storage_intf.Base.list_prefix ~list_fn:list t pre
 
diff --git a/lib/storage/storage_intf.ml b/lib/storage/storage_intf.ml
index 6e55ff0a..374f48f0 100644
--- a/lib/storage/storage_intf.ml
+++ b/lib/storage/storage_intf.ml
@@ -34,7 +34,6 @@ module type STORE = sig
   val set : t -> key -> string -> unit
   val set_partial_values : t -> key -> ?append:bool -> (int * string) list -> unit
   val erase : t -> key -> unit
-  val erase_values : t -> key list -> unit
   val erase_prefix : t -> key -> unit
   val list : t -> key list
   val list_prefix : t -> key -> key list
@@ -190,11 +189,8 @@ module Base = struct
       (String.starts_with ~prefix:pre) 
       (list_fn t)
 
-  let erase_values ~erase_fn t keys =
-    StrSet.iter (erase_fn t) @@ StrSet.of_list keys
-
   let erase_prefix ~list_fn ~erase_fn t pre =
-    erase_values ~erase_fn t @@ list_prefix ~list_fn t pre
+    List.iter (erase_fn t) @@ list_prefix ~list_fn t pre
 
   let list_dir ~list_fn t pre =
     let n = String.length pre in