package validate

  1. Overview
  2. Docs

Source file utils.ml

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 ]))
OCaml

Innovation. Community. Security.