type GameList = MVar [Game]
type Game = (SockAddr, UTCTime)

app :: GameList -> ScottyM ()
app games = do
    get "/games" $ listGames games
    post "/games" $ updateGame games

main :: IO ()
main = do
    games <- newMVar []
    scotty 3000 $ app games