tryLeave :: LocationAction LocationView
tryLeave = do
    userId <- getCurrentUserId
    currentLocationId <- getUserLocation userId
    exit <- exit currentLocationId
    tryJoin exit
tryLeave :: LocationAction LocationView
tryLeave = do
    userId <- getCurrentUserId
    currentLocationId <- getUserLocation userId
    exit <- exit currentLocationId
    tryJoin exit
tryLeave = do
    userId <- getCurrentUserId
    currentLocationId <- getUserLocation userId
    exit <- exit currentLocationId
    tryJoin exit