mkPandoraRequest (PandoraWorld {..}) a = do
    adjustedSyncTime <- adjustSyncTime pwSyncTime pwTimeSynced
    return $ PandoraRequest a adjustedSyncTime pwUserAuthToken
mkPandoraRequest (PandoraWorld {..}) a = do
    adjustedSyncTime <- adjustSyncTime pwSyncTime pwTimeSynced
    return $ PandoraRequest a adjustedSyncTime pwUserAuthToken
mkPandoraRequest (PandoraWorld {..}) a = do
    adjustedSyncTime <- adjustSyncTime pwSyncTime pwTimeSynced
    return $ PandoraRequest a adjustedSyncTime pwUserAuthToken