let
ignore_good =
function
|
Good
_
->
()
|
Bad
e
->
raise e