util.ml
avro-compiler.lib
1 2 3 4 5 6 7 8 9 10 (** Keep options *) let rec list_keep_some = function | [] -> [] | None :: l -> list_keep_some l | Some x :: tl -> x :: list_keep_some tl let map_opt ~f = function | None -> None | Some x -> Some (f x)
1 2 3 4 5 6 7 8 9 10
(** Keep options *) let rec list_keep_some = function | [] -> [] | None :: l -> list_keep_some l | Some x :: tl -> x :: list_keep_some tl let map_opt ~f = function | None -> None | Some x -> Some (f x)