let
res_optval ov =
match
ov
with
|
None
->
`
Error
()
|
Some
v
->
`
Ok
v