blob: 6b52ec6f25f3356f0087f68a87b81bd8c232e47b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Make(Http : S.Http) = struct
open Core
type t = Snowflake_t.t
let timestamp snowflake =
let offset = (snowflake lsr 22) / 1000 in
1_420_070_400 + offset
let timestamp_iso snowflake =
let t = timestamp snowflake in
Date.(
of_time ~zone:Time.Zone.utc
Time.(of_span_since_epoch @@ Span.of_int_sec t)
|> format) "%FT%T+00:00"
end
|