let
cb_on_opted f =
function
|
None
->
()
|
Some
v
->
f v ; ()