List.map unmarshaller (get registry key)
with Key_not_found _ -> []
-let get_pair registry unmarshaller key =
+let get_pair registry fst_unmarshaller snd_unmarshaller key =
let v = singleton (get registry key) in
match Str.split spaces_rex v with
- | [fst; snd] -> unmarshaller fst, unmarshaller snd
+ | [fst; snd] -> fst_unmarshaller fst, snd_unmarshaller snd
| _ -> raise (Type_error "not a pair")
let set_list registry marshaller ~key ~value =