From 73d115ce6260e97f5f7ee47f743d842ffd292662 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 13 Dec 2018 14:11:54 -0700 Subject: Working on deriving types from json --- lib/models/snowflake.ml | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100644 lib/models/snowflake.ml (limited to 'lib/models/snowflake.ml') 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 -- cgit v1.2.3