Source file `message_data.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Base
open! Import

type t =
  [ `Sexp of Sexp.t
  | `String of string
  | `Structured of Message_sexp.t
  ]

module Unstable = struct
  type nonrec t =
    [ `Sexp of Sexp.t
    | `String of string
    | `Structured of Message_sexp.Unstable.t
    ]
  [@@deriving sexp_of]
end