lib/listenbrainz_util.ml


1
2
3
4
5
6
7
8
9

open Listenbrainz_t

let validate_submission s =
  match s.listen_type with
  | `Single -> List.length s.payload = 1
  | _ -> true

let validate_response r =
  List.length r.listens = r.count