package avro-compiler

  1. Overview
  2. Docs

Source file util.ml

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)
OCaml

Innovation. Community. Security.