Working and pretty message replying!

2 files changed, 49 insertions, 0 deletions

diff --git a/lib/models/message.ml b/lib/models/message.ml
index 36b7d4b..7849afe 100644
--- a/lib/models/message.ml
+++ b/lib/models/message.ml
@@ -1,2 +1,7 @@
 module Make(Http : S.Http) = struct
+    let reply (message:Message_t.t) str =
+        let msg = `Assoc [
+            ("content", `String str)
+        ] in
+        Http.create_message (string_of_int (message.channel_id)) (msg)
 end
\ No newline at end of file
diff --git a/lib/s.ml b/lib/s.ml
index 1fb8fdf..40af880 100644
--- a/lib/s.ml
+++ b/lib/s.ml
@@ -4,7 +4,51 @@ module type Token = sig
     val token : string
 end
 
+module type Activity = sig end
+
+module type Attachment = sig end
+
+module type Ban = sig end
+
+module type Channel = sig end
+
+module type Embed = sig end
+
+module type Emoji = sig end
+
+module type Guild = sig end
+
+module type Member = sig end
+
+module type Message = sig
+  val reply : Message_t.t -> string -> Yojson.Safe.json Deferred.t
+end
+
+module type Presence = sig end
+
+module type Reaction = sig end
+
+module type Role = sig end
+
+module type Snowflake = sig end
+
+module type User = sig end
+
 module type Models = sig
+    module Activity : Activity
+    module Attachment : Attachment
+    module Ban : Ban
+    module Channel : Channel
+    module Embed : Embed
+    module Emoji : Emoji
+    module Guild : Guild
+    module Member : Member
+    module Message : Message
+    module Presence : Presence
+    module Reaction : Reaction
+    module Role : Role
+    module Snowflake : Snowflake
+    module User : User
 end
 
 module type Handler = sig