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
module Stable = struct
module V2 = struct
type t = Time_float_unix.t Async_log_kernel.Message.Stable.T1.V2.t
[@@deriving bin_io, sexp]
module For_testing = struct
type t_as_v0 =
Time_float_unix.t Async_log_kernel.Message.Stable.T1.V2.For_testing.t_as_v0
[@@deriving sexp_of]
end
end
end
open! Core
open! Import
include (
Async_log_kernel.Message :
module type of Async_log_kernel.Message
with module Stable := Async_log_kernel.Message.Stable)
type t = Time_float_unix.t Async_log_kernel.Message.T1.t [@@deriving sexp_of]
let to_write_only_text ?(zone = force Time_float_unix.Zone.local) t =
to_write_only_text t zone
;;