Source file ppx_rapper_runtime.ml

module type CUSTOM = sig
  type t

  val t : t Caqti_type.t
end

module Dynparam = struct
  type t = Pack : 'a Caqti_type.t * 'a -> t

  let empty = Pack (Caqti_type.unit, ())

  let add t x (Pack (t', x')) = Pack (Caqti_type.tup2 t' t, (x', x))
end