let
ignore_ok =
function
Ok
_
->
()
|
Bad
ex
->
raise ex