blob: 92d94fa1df5c9f6616e1dd2a19fbe8c23a829884 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
open Core
type t = int64 [@@deriving sexp, yojson]
let timestamp snowflake = Int64.((snowflake lsr 22) + 1_420_070_400_000L)
let time_of_t snowflake =
let t = timestamp snowflake |> Int64.to_float in
Time.(Span.of_ms t
|> of_span_since_epoch)
let timestamp_iso snowflake =
time_of_t snowflake
|> Time.(to_string_iso8601_basic ~zone:Zone.utc)
|