buildGame :: State GameBuilder a -> Game
buildGame buildActions = flip evalState makeGameBuilder $ do
    buildActions
    gb <- get
    return $ makeGame (gb^.p1) (gb^.p2) 0 (gb^.idGen)
buildGame :: State GameBuilder a -> Game
buildGame buildActions = flip evalState makeGameBuilder $ do
    buildActions
    gb <- get
    return $ makeGame (gb^.p1) (gb^.p2) 0 (gb^.idGen)
buildGame buildActions = flip evalState makeGameBuilder $ do
    buildActions
    gb <- get
    return $ makeGame (gb^.p1) (gb^.p2) 0 (gb^.idGen)