playerAt :: Int -> Lens' GameBuilder Player
playerAt i f gb = case i of 1 -> p1 f gb
                            2 -> p2 f gb
playerAt :: Int -> Lens' GameBuilder Player
playerAt i f gb = case i of 1 -> p1 f gb
                            2 -> p2 f gb
playerAt i f gb = case i of 1 -> p1 f gb
                            2 -> p2 f gb