case.purs

    let (loadedVideo :: Maybe VideoId) = old.loadedVideoId
    let (nextVideo :: Maybe VideoId) = _.id <$> head new.app.queue

    liftEff $
      case new.app.play /\ nextVideo of
        true /\ loadedVideo -> YT.callPlayer player "playVideo" []
        true /\ Just nextVideo' -> YT.callPlayer player "loadVideoById" [unwrap nextVideo']
        _ -> YT.callPlayer player "pauseVideo" []