From 977462fc5a0ae41f871b0cd4820ecf40eb388da6 Mon Sep 17 00:00:00 2001 From: orbifx Date: Tue, 21 Jun 2022 00:08:12 +0100 Subject: [PATCH] Remove redundant Store.with_id --- lib/file_store.ml | 12 ------------ lib/store.ml | 1 - 2 files changed, 13 deletions(-) diff --git a/lib/file_store.ml b/lib/file_store.ml index af7d570..354cd95 100644 --- a/lib/file_store.ml +++ b/lib/file_store.ml @@ -94,18 +94,6 @@ let fold ?(r=false) ?(dir=def_dir ()) ?(predicate=fun _ -> true) ?order ?number | None -> List.fold_left fn acc @@ TextMap.bindings @@ List.fold_left (fold_valid_text predicate) new_iteration flist -let with_id ?(r=false) ?(dir=def_dir ()) id = - let matched acc path = - match to_text path with - | Error x -> prerr_endline x; acc - | Ok text when text.Text.id <> id -> acc - | Ok text -> - match acc with - | Ok None -> Ok (Some text) - | Ok (Some prev) -> if prev = text then acc else Error [text; prev] - | Error x -> Error (text :: x) - in List.fold_left matched (Ok None) (list_fs ~r dir) - let with_dir ?(descr="") ?(perm=0o740) dir = let mkdir dir = match Unix.mkdir dir perm with | exception Unix.Unix_error (EEXIST, _, _) -> () diff --git a/lib/store.ml b/lib/store.ml index 5b83510..a0d435f 100644 --- a/lib/store.ml +++ b/lib/store.ml @@ -8,7 +8,6 @@ module type T = sig val of_path: string -> (archive_t, string) result val newest: record_t -> record_t -> int val oldest: record_t -> record_t -> int - val with_id: archive_t -> Id.t -> (Text.t option, Text.t list) result val with_text: archive_t -> Text.t -> (string * Text.t, string) result val iter: ?predicate:(Text.t -> bool) -> ?order:(record_t -> record_t -> int) -> ?number:int -> (record_t -> unit) -> archive_t -> unit