forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
ocaml-git: add add_all and log_filtered functions
+14
-14
+1
-1
lib/monopam.ml
+1
-1
lib/monopam.ml
···
1640
1640
Log.warn (fun m -> m "Could not load verse registry: %s" msg);
1641
1641
Ok () (* Continue without cloning - will init fresh *)
1642
1642
| Ok registry -> (
1643
-
match Verse_registry.find_member registry ~handle with
1643
+
match Verse_registry.member registry ~handle with
1644
1644
| None ->
1645
1645
Log.warn (fun m -> m "Handle %s not found in registry" handle);
1646
1646
Ok ()
+2
-2
lib/site.ml
+2
-2
lib/site.ml
···
132
132
Hashtbl.replace pkg_map pkg.name ((handle, pkg) :: existing))
133
133
pkgs;
134
134
(* Look up member in registry for URLs *)
135
-
let member = Verse_registry.find_member registry ~handle in
135
+
let member = Verse_registry.member registry ~handle in
136
136
let display_name =
137
137
try Hashtbl.find handle_to_name handle with Not_found -> handle
138
138
in
···
154
154
155
155
(* Add local member info *)
156
156
let local_member =
157
-
let member = Verse_registry.find_member registry ~handle:local_handle in
157
+
let member = Verse_registry.member registry ~handle:local_handle in
158
158
let display_name =
159
159
try Hashtbl.find handle_to_name local_handle
160
160
with Not_found -> local_handle
+4
-4
lib/verse.ml
+4
-4
lib/verse.ml
···
172
172
| Ok registry -> (
173
173
Logs.info (fun m -> m "Registry loaded");
174
174
(* Look up user in registry - this validates the handle *)
175
-
match Verse_registry.find_member registry ~handle with
175
+
match Verse_registry.member registry ~handle with
176
176
| None ->
177
177
Logs.err (fun m -> m "Handle %s not found in registry" handle);
178
178
Error (Member_not_found handle)
···
238
238
List.filter_map
239
239
(fun handle ->
240
240
(* Find member in registry *)
241
-
match Verse_registry.find_member registry ~handle with
241
+
match Verse_registry.member registry ~handle with
242
242
| None ->
243
243
(* Member not in registry but locally tracked - show anyway *)
244
244
let local_path =
···
309
309
let members =
310
310
match handle with
311
311
| Some h -> (
312
-
match Verse_registry.find_member registry ~handle:h with
312
+
match Verse_registry.member registry ~handle:h with
313
313
| Some m -> [ m ]
314
314
| None -> [])
315
315
| None -> registry.members
···
486
486
match Verse_registry.clone_or_pull ~proc ~fs ~config () with
487
487
| Error msg -> Error (Registry_error msg)
488
488
| Ok registry -> (
489
-
match Verse_registry.find_member registry ~handle with
489
+
match Verse_registry.member registry ~handle with
490
490
| None -> Error (Member_not_found handle)
491
491
| Some _member -> (
492
492
let verse_path = Verse_config.verse_path config in
+2
-2
lib/verse_registry.ml
+2
-2
lib/verse_registry.ml
···
179
179
Ok empty_registry
180
180
end
181
181
182
-
let find_member t ~handle = List.find_opt (fun m -> m.handle = handle) t.members
182
+
let member t ~handle = List.find_opt (fun m -> m.handle = handle) t.members
183
183
184
-
let find_members t ~handles =
184
+
let members t ~handles =
185
185
List.filter (fun m -> List.mem m.handle handles) t.members
+5
-5
lib/verse_registry.mli
+5
-5
lib/verse_registry.mli
···
55
55
56
56
(** {1 Member Lookup} *)
57
57
58
-
val find_member : t -> handle:string -> member option
59
-
(** [find_member registry ~handle] finds a member by their handle. *)
58
+
val member : t -> handle:string -> member option
59
+
(** [member registry ~handle] finds a member by their handle. *)
60
60
61
-
val find_members : t -> handles:string list -> member list
62
-
(** [find_members registry ~handles] finds multiple members by their handles.
63
-
Returns only the members that were found. *)
61
+
val members : t -> handles:string list -> member list
62
+
(** [members registry ~handles] finds multiple members by their handles. Returns
63
+
only the members that were found. *)
64
64
65
65
(** {1 Pretty Printing} *)
66
66