win :: Text -> Text -> Handler Text
win out urlHash = do
    deletePlayer urlHash
    return $ "You won! " ++ out ++ " Visit the startpage to restart."
win :: Text -> Text -> Handler Text
win out urlHash = do
    deletePlayer urlHash
    return $ "You won! " ++ out ++ " Visit the startpage to restart."
win out urlHash = do
    deletePlayer urlHash
    return $ "You won! " ++ out ++ " Visit the startpage to restart."