blob: 305043e918850dad4322e04b20ffee8cdabfa160 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module Make(Http : S.Http) = struct
open Core
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
|