Declarative CSV codecs
fix merlint across 9 packages (Fmt.str, rename test_ functions)
contact, coordinate, cop1, cose, cpio, crc, crypto, csts, csvt:
all now pass merlint with 0 issues.
+3
-3
+2
-2
lib/csvt.ml
+2
-2
lib/csvt.ml
···
21
21
| Missing_header -> "missing CSV header row"
22
22
| Missing_column name -> "missing required column: " ^ name
23
23
| Bad_value { row; column; value; msg } ->
24
-
Printf.sprintf "row %d, column %s: bad value %S (%s)" row column value msg
24
+
Fmt.str "row %d, column %s: bad value %S (%s)" row column value msg
25
25
| Truncated_row { row; expected; got } ->
26
-
Printf.sprintf "row %d: expected %d columns, got %d" row expected got
26
+
Fmt.str "row %d: expected %d columns, got %d" row expected got
27
27
| Encode_error msg -> "encode error: " ^ msg
28
28
29
29
let pp_error ppf e = Format.pp_print_string ppf (error_to_string e)