getAreaId :: Text -> Handler Int64
getAreaId urlHash = do
    player <- getPlayer urlHash
    case player of
        Just (Entity _ playerVal) -> return $ fromSqlKey $ player_statusArea_id playerVal
        Nothing -> return 0
getAreaId :: Text -> Handler Int64
getAreaId urlHash = do
    player <- getPlayer urlHash
    case player of
        Just (Entity _ playerVal) -> return $ fromSqlKey $ player_statusArea_id playerVal
        Nothing -> return 0
getAreaId urlHash = do
    player <- getPlayer urlHash
    case player of
        Just (Entity _ playerVal) -> return $ fromSqlKey $ player_statusArea_id playerVal
        Nothing -> return 0