generateUnits g = g & gameMap . traverse . filtered (\field -> isJust $ field ^? city) %~ generateUnit
generateUnit field = case field ^. unit of
Just (Unit value owner) -> field & unit .~ Just (Unit (value + 5) owner)
Nothing -> field & unit .~ Just (Unit 5 cityOwner)
where
cityOwner = fromJust $ field ^? city . traverse . conqueror . traverse