+1 -1

lib/csvt.ml

reviewed

··· 203 203 enc = (function None -> "NULL" | Some v -> encode_field t v); 204 204 } 205 205 206 206 - let col_map ~dec ~enc () = String { dec; enc } 206 206 + let col_map ?kind:_ ~dec ~enc () = String { dec; enc } 207 207 208 208 (* {1 Row builder} *) 209 209

+6 -2

lib/csvt.mli

reviewed

··· 81 81 through [t] and wraps in [Some]. *) 82 82 83 83 val col_map : 84 84 - dec:(string -> ('a, string) result) -> enc:('a -> string) -> unit -> 'a t 85 85 - (** [col_map ~dec ~enc ()] creates a custom field codec. *) 84 84 + ?kind:string -> 85 85 + dec:(string -> ('a, string) result) -> 86 86 + enc:('a -> string) -> 87 87 + unit -> 88 88 + 'a t 89 89 + (** [col_map ?kind ~dec ~enc ()] creates a custom field codec. *) 86 90 87 91 (** {1:introspect Introspection} *) 88 92