utils.ml
ppx_derive_validate
validate
1 2 3 4 5 6 7 8 open Ppxlib open Ast_helper let rec expr_list loc = function | [] -> Exp.construct { txt = Lident "[]"; loc } None | x :: xs -> Exp.construct { txt = Lident "::"; loc } (Some (Exp.tuple [ x; expr_list loc xs ]))
1 2 3 4 5 6 7 8
open Ppxlib open Ast_helper let rec expr_list loc = function | [] -> Exp.construct { txt = Lident "[]"; loc } None | x :: xs -> Exp.construct { txt = Lident "::"; loc } (Some (Exp.tuple [ x; expr_list loc xs ]))