broken :: R JSON Send Ready -> Bool
broken r = view (query . ix "method") r `notElem`
  [ "track.scrobble"
  , "track.updateNowPlaying"
  , "track.love"
  ]
broken :: R JSON Send Ready -> Bool
broken r = view (query . ix "method") r `notElem`
  [ "track.scrobble"
  , "track.updateNowPlaying"
  , "track.love"
  ]
broken r = view (query . ix "method") r `notElem`
  [ "track.scrobble"
  , "track.updateNowPlaying"
  , "track.love"
  ]