ligo/src/lib_utils/x_option.ml

7 lines
149 B
OCaml
Raw Normal View History

2019-04-20 18:52:28 +00:00
include Tezos_stdlib.Option
let lr (a , b) = match (a , b) with
| Some x , _ -> Some (`Left x)
| None , Some x -> Some (`Right x)
| _ -> None