From 792c8c437f45d9fd2529f1ccab27faf79d98ba91 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 17 Dec 2018 16:09:35 -0700 Subject: Some refactoring of http code --- lib/models/message.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'lib/models/message.ml') diff --git a/lib/models/message.ml b/lib/models/message.ml index 29148ee..222edf8 100644 --- a/lib/models/message.ml +++ b/lib/models/message.ml @@ -1,4 +1,5 @@ module Make(Http : S.Http) = struct + open Async open Message_t let add_reaction msg (emoji:Emoji_t.t) = -- 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/message.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/models/message.ml') diff --git a/lib/models/message.ml b/lib/models/message.ml index 222edf8..ffd7583 100644 --- a/lib/models/message.ml +++ b/lib/models/message.ml @@ -2,6 +2,8 @@ module Make(Http : S.Http) = struct open Async open Message_t + type t = Message_t.t + let add_reaction msg (emoji:Emoji_t.t) = let e = match emoji.id with | Some i -> Printf.sprintf "%s:%d" emoji.name i -- cgit v1.2.3