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