From 011e3224c0292dfcb0024daf474d4ef1e00b82f0 Mon Sep 17 00:00:00 2001 From: Mishio595 Date: Sun, 25 Nov 2018 16:02:37 -0700 Subject: A lot is going on... --- lib/models/snowflake.ml | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 lib/models/snowflake.ml (limited to 'lib/models/snowflake.ml') diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml new file mode 100644 index 0000000..ed80b62 --- /dev/null +++ b/lib/models/snowflake.ml @@ -0,0 +1,16 @@ +type t = { + id: int; + as_string: string; +} + +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 From 260ccd9960b852b9c69b88e9840d5a8b22bb8e1d Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 12 Dec 2018 15:00:46 -0700 Subject: Work on event dispatch and add model derives --- lib/models/snowflake.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/models/snowflake.ml') diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml index ed80b62..ab723a7 100644 --- a/lib/models/snowflake.ml +++ b/lib/models/snowflake.ml @@ -1,7 +1,7 @@ type t = { id: int; as_string: string; -} +} [@@deriving yojson] let to_int t = t.id let to_string t = t.as_string -- cgit v1.2.3 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 From af684566617ebce536e9f30693aa3e225af906c4 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 10:52:36 -0700 Subject: There's a lot going on --- lib/models/snowflake.ml | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 lib/models/snowflake.ml (limited to 'lib/models/snowflake.ml') diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml new file mode 100644 index 0000000..36b7d4b --- /dev/null +++ b/lib/models/snowflake.ml @@ -0,0 +1,2 @@ +module Make(Http : S.Http) = struct +end \ No newline at end of file -- cgit v1.2.3