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