Sigstore signing and verification for OCaml
sigstore: fix lookup name collision with Jsont.Json.mem
+5
-5
+5
-5
lib/sigstore.ml
+5
-5
lib/sigstore.ml
···
167
167
let json_arr items = Jsont.Array (items, none)
168
168
169
169
(** Find a member by name in a JSON object's member list. *)
170
-
let mem name (mems : Jsont.object') =
170
+
let lookup name (mems : Jsont.object') =
171
171
match Jsont.Json.mem name mems with
172
172
| Some (_, v) -> Some v
173
173
| None -> None
···
186
186
187
187
(** Find a string member in an object member list. *)
188
188
let string_of name mems =
189
-
match mem name mems with Some v -> string_v v | None -> None
189
+
match lookup name mems with Some v -> string_v v | None -> None
190
190
191
191
(** Find a number member in an object member list. *)
192
192
let number_of name mems =
193
-
match mem name mems with Some v -> number_v v | None -> None
193
+
match lookup name mems with Some v -> number_v v | None -> None
194
194
195
195
(** Find an object member in an object member list. *)
196
196
let object_of name mems =
197
-
match mem name mems with Some v -> object_v v | None -> None
197
+
match lookup name mems with Some v -> object_v v | None -> None
198
198
199
199
(** Find an array member in an object member list. *)
200
200
let array_of name mems =
201
-
match mem name mems with Some v -> array_v v | None -> None
201
+
match lookup name mems with Some v -> array_v v | None -> None
202
202
203
203
(* -- Other helpers -- *)
204
204