listGames :: GameList -> ActionM ()
listGames games = do
    result <- liftIO $
        withMVar games (return . mconcat . fmap formatGame)
    html result

formatGame :: Game -> Text
formatGame (addr, _) = pack (show addr) <> "\n"