From 57df76de6441899b659e30c6a8e9d7572b85f7a0 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 17 Dec 2018 13:13:10 -0700 Subject: Some abstractions --- lib/models/snowflake.ml | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lib/models/snowflake.ml') diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml index 36b7d4b..305043e 100644 --- a/lib/models/snowflake.ml +++ b/lib/models/snowflake.ml @@ -1,2 +1,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 \ No newline at end of file -- cgit v1.2.3 From 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 19 Dec 2018 13:44:04 -0700 Subject: Re-arrange autogen serialization files and incorporate into dune file --- lib/models/snowflake.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/models/snowflake.ml') diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml index 305043e..6b52ec6 100644 --- a/lib/models/snowflake.ml +++ b/lib/models/snowflake.ml @@ -1,6 +1,8 @@ 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 -- cgit v1.2.3