diff options
| author | Adelyn Breelove <[email protected]> | 2018-12-21 09:15:32 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2018-12-21 09:15:32 -0700 |
| commit | 4abf2d536e04597650125a15a92a8835be607773 (patch) | |
| tree | 7c170b3b44592fdf882a8ed37d414d619ccfc7cb /lib/http.ml | |
| parent | Working with Discord's channel bullshit (diff) | |
| download | disml-4abf2d536e04597650125a15a92a8835be607773.tar.xz disml-4abf2d536e04597650125a15a92a8835be607773.zip | |
Implement most channel methods
Diffstat (limited to 'lib/http.ml')
| -rw-r--r-- | lib/http.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/http.ml b/lib/http.ml index e2e5471..f04a49f 100644 --- a/lib/http.ml +++ b/lib/http.ml @@ -82,8 +82,8 @@ module Make(T : S.Token) = struct let delete_channel channel_id = Base.request `DELETE (Endpoints.channel channel_id) - let get_messages channel_id = - Base.request `GET (Endpoints.channel_messages channel_id) + let get_messages channel_id limit (kind, id) = + Base.request `GET (Printf.sprintf "%s?%s=%d&limit=%d" (Endpoints.channel_messages channel_id) kind id limit) let get_message channel_id message_id = Base.request `GET (Endpoints.channel_message channel_id message_id) |