login email password = do
    (pwSyncTime, pwPartnerId, pauth, pwTimeSynced) <- partnerLogin
    (pwUserAuthToken, pwUserId, pwHasSub) <- userLogin pwSyncTime pwPartnerId pauth email password
    return (PandoraWorld {..})
login email password = do
    (pwSyncTime, pwPartnerId, pauth, pwTimeSynced) <- partnerLogin
    (pwUserAuthToken, pwUserId, pwHasSub) <- userLogin pwSyncTime pwPartnerId pauth email password
    return (PandoraWorld {..})
login email password = do
    (pwSyncTime, pwPartnerId, pauth, pwTimeSynced) <- partnerLogin
    (pwUserAuthToken, pwUserId, pwHasSub) <- userLogin pwSyncTime pwPartnerId pauth email password
    return (PandoraWorld {..})