let parse_bool_s = function |(_,("Yes"|"yes"|"true" |"True")) -> "true" |(_,("No" |"no" |"false"|"False")) -> "false" (* this one usually is not there *) |(_,s) -> raise (Format822.Type_error ("wrong value : "^ s))