package async_log

  1. Overview
  2. Docs

Source file output_format.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
open! Core
open! Import

module Stable = struct
  module V1 = struct
    type machine_readable =
      [ `Sexp
      | `Sexp_hum
      | `Bin_prot
      ]
    [@@deriving bin_io, sexp]

    type t =
      [ machine_readable
      | `Text
      ]
    [@@deriving bin_io, sexp]
  end
end

type machine_readable =
  [ `Sexp
  | `Sexp_hum
  | `Bin_prot
  ]
[@@deriving bin_io, enumerate, sexp]

type t =
  [ machine_readable
  | `Text
  ]
[@@deriving bin_io, enumerate, sexp]