Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
74671ba6cThis file is pinned to the selected release. Download the original to open it in your design tool.
let ( >> ) f g x = g (f x)
let zip_opt a b =
match a, b with
| Some a, Some b -> Some (a, b)
| _ -> None
let ( let* ) = Option.bind
let ( and* ) = zip_opt
let ( let+ ) a f = Option.map f a
let ( and+ ) = zip_opt