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