aboutsummaryrefslogtreecommitdiff
path: root/lib/models/snowflake.ml
diff options
context:
space:
mode:
authorAdelyn Breelove <[email protected]>2018-12-13 14:11:54 -0700
committerAdelyn Breelove <[email protected]>2018-12-13 14:11:54 -0700
commit73d115ce6260e97f5f7ee47f743d842ffd292662 (patch)
tree7825358ae1b4736392909cb72ce26cdb26257d23 /lib/models/snowflake.ml
parentAdd rate limit handling (diff)
downloaddisml-73d115ce6260e97f5f7ee47f743d842ffd292662.tar.xz
disml-73d115ce6260e97f5f7ee47f743d842ffd292662.zip
Working on deriving types from json
Diffstat (limited to 'lib/models/snowflake.ml')
-rw-r--r--lib/models/snowflake.ml16
1 files changed, 0 insertions, 16 deletions
diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml
deleted file mode 100644
index ab723a7..0000000
--- a/lib/models/snowflake.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-type t = {
- id: int;
- as_string: string;
-} [@@deriving yojson]
-
-let to_int t = t.id
-let to_string t = t.as_string
-
-let from_int i = {
- id = i;
- as_string = string_of_int i;
-}
-let from_string s = {
- id = int_of_string s;
- as_string = s;
-} \ No newline at end of file