1 files changed, 14 insertions, 0 deletions
diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml
index 36b7d4b..6b52ec6 100644
--- a/lib/models/snowflake.ml
+++ b/lib/models/snowflake.ml
@@ -1,2 +1,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
 \ No newline at end of file