setMaxHealth :: Int -> Int -> State GameBuilder ()
setMaxHealth i newHealth = do
    zoom (heroAt i) $ do
        health .= newHealth
        maxHealth .= newHealth
setMaxHealth :: Int -> Int -> State GameBuilder ()
setMaxHealth i newHealth = do
    zoom (heroAt i) $ do
        health .= newHealth
        maxHealth .= newHealth
setMaxHealth i newHealth = do
    zoom (heroAt i) $ do
        health .= newHealth
        maxHealth .= newHealth