stopAndPlaySelected :: (MonadIO m) => PlayerApp -> m PlayerApp
stopAndPlaySelected app = stop app >>= play mPos
  where
    mPos = songsList app ^. L.listSelectedL


-- Stops current song and play current song pos + delta.
stopAndPlaySelected :: (MonadIO m) => PlayerApp -> m PlayerApp
stopAndPlaySelected app = stop app >>= play mPos
  where
    mPos = songsList app ^. L.listSelectedL


-- Stops current song and play current song pos + delta.
stopAndPlaySelected app = stop app >>= play mPos
  where
    mPos = songsList app ^. L.listSelectedL


-- Stops current song and play current song pos + delta.