diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-14 11:53:25 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-14 11:53:25 -0700 |
| commit | 4df67b173aa7d51f5bd2ce95e476d130a6f93fd6 (patch) | |
| tree | 3a351748ad4053e62a1efbcbb8624f14073a2a96 /lib/models | |
| parent | Add a helper script for working with atdgen (diff) | |
| download | disml-4df67b173aa7d51f5bd2ce95e476d130a6f93fd6.tar.xz disml-4df67b173aa7d51f5bd2ce95e476d130a6f93fd6.zip | |
Working and pretty message replying!
Diffstat (limited to 'lib/models')
| -rw-r--r-- | lib/models/message.ml | 5 |
1 files changed, 5 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 |