From 0051e6f68eb19a38984f2538c35f414f9fa1ed7b Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Sun, 7 Nov 2021 11:29:58 -0500 Subject: Refactor --- lib/listenbrainz.mli | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/listenbrainz.mli') diff --git a/lib/listenbrainz.mli b/lib/listenbrainz.mli index e3997bd..6037c08 100644 --- a/lib/listenbrainz.mli +++ b/lib/listenbrainz.mli @@ -1,7 +1,8 @@ -type query + type token = string -val do_query : query -> (Cohttp.Response.t * string) Lwt.t - -val get_validate_token : unit -> (bool * Listenbrainz_t.get_validate_token) Lwt.t +val get_validate_token : token -> Listenbrainz_t.get_validate_token Lwt.t val get_listens : string -> Listenbrainz_t.get_user_listens Lwt.t + +val post_submit_listens : token -> Listenbrainz_t.payload_listens -> + (Cohttp.Response.t * Listenbrainz_t.post_submit_listens) Lwt.t -- cgit v1.2.3