diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2021-11-06 20:10:31 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2021-11-06 20:10:48 -0400 |
| commit | d91ac3d746bac124f3344986ed1f430727055d19 (patch) | |
| tree | 8372b0f65051ef54b33aec7e7e8a352d7a9fd873 /lib/listenbrainz_util.ml | |
| parent | Add dependencies (diff) | |
Refactor listenbrainz.atd and fix differences with API
Diffstat (limited to 'lib/listenbrainz_util.ml')
| -rw-r--r-- | lib/listenbrainz_util.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/listenbrainz_util.ml b/lib/listenbrainz_util.ml index 5056c09..f0b90dd 100644 --- a/lib/listenbrainz_util.ml +++ b/lib/listenbrainz_util.ml @@ -14,6 +14,8 @@ let tm_unwrap tm = let validate_mbid mbid = Str.string_match uuid_v4_re mbid 0 +let validate_isrc isrc = Str.string_match uuid_v4_re isrc 0 + let validate_post_submit_listens s = match s.listen_type with | `Single -> List.length s.payload = 1 @@ -22,11 +24,11 @@ let validate_post_submit_listens s = let validate_get_validate_token r = r.code = 200 || r.code = 400 -let validate_get_user_playing_now r = - match r.listens with +let validate_get_user_playing_now (r : get_user_playing_now) = + match r.payload.listens with | [] -> true | [l] -> l.listened_at = None | _ -> false -let validate_get_user_listens r = - List.length r.listens = r.count +let validate_get_user_listens (r : get_user_listens) = + List.length r.payload.listens = r.payload.count |