diff options
| author | Matias Goldfeld <[email protected]> | 2021-01-28 00:50:21 -0500 |
|---|---|---|
| committer | Matias Goldfeld <[email protected]> | 2021-01-28 00:50:21 -0500 |
| commit | b499169e93e9f7bdd0f877a3cdf0247ec495abe1 (patch) | |
| tree | 52696cb3e1c16a84513fb90fe50c3738ce4539cb /lib/http/http.ml | |
| parent | More 32 bit fixes (diff) | |
| download | disml-b499169e93e9f7bdd0f877a3cdf0247ec495abe1.tar.xz disml-b499169e93e9f7bdd0f877a3cdf0247ec495abe1.zip | |
More Int64 refactors
Diffstat (limited to 'lib/http/http.ml')
| -rw-r--r-- | lib/http/http.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/http/http.ml b/lib/http/http.ml index afb2610..157643c 100644 --- a/lib/http/http.ml +++ b/lib/http/http.ml @@ -91,7 +91,7 @@ let delete_channel channel_id = Base.request `Delete (Endpoints.channel channel_id) >>| Result.map ~f:(fun c -> Channel_t.(channel_wrapper_of_yojson_exn c |> wrap))
let get_messages channel_id limit (kind, id) =
- Base.request ~query:[(kind, string_of_int id); ("limit", string_of_int limit)] `Get (Endpoints.channel_messages channel_id)
+ Base.request ~query:[(kind, Int64.to_string id); ("limit", string_of_int limit)] `Get (Endpoints.channel_messages channel_id)
>>| Result.map ~f:(fun l -> Yojson.Safe.Util.to_list l |> List.map ~f:Message_t.of_yojson_exn)
let get_message channel_id message_id =
|