updateGame :: GameList -> ActionM ()
updateGame games = do
    host <- fmap remoteHost request
    now  <- liftIO getCurrentTime
    liftIO $ modify games $ updateAssoc host now
    status status200