1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open Core_kernel
open Util
type t =
{ name : string
; version : string
; integrations : String.Set.t
}
[@@deriving sexp_of]
let make ~name ~version ?(integrations = String.Set.empty) () =
{ name; version; integrations }
;;
let default = make ~name:Config.name ~version:Config.version ()
let to_payload { name; version; integrations } =
{ Payloads_t.name
; version
; integrations = String.Set.to_list integrations |> empty_list_option
}
;;