package of_json

  1. Overview
  2. Docs

Source file timestamp.ml

1
2
3
4
5
6
7
8
9
10
11
open! Core
open Helpers

module Float_ms_since_epoch = struct
  type t = Time_ns.t

  include (Time_ns.Alternate_sexp : Sexpable.S with type t := t)

  let of_json = float @> Time_ns.Span.of_ms >>> Time_ns.of_span_since_epoch
  let to_json t = t |> Time_ns.to_span_since_epoch |> Time_ns.Span.to_ms |> To_json.float
end