let res_opterr oe = match oe with | None -> `Ok () | Some e -> `Error e