setActiveMinions :: Int -> [String] -> State GameBuilder ()
setActiveMinions i names = do
    gb <- get
    let (newMinions, newGen) = lookupMinions (gb^.idGen) names
    playerAt i.activeMinions .= newMinions
    idGen .= newGen
setActiveMinions :: Int -> [String] -> State GameBuilder ()
setActiveMinions i names = do
    gb <- get
    let (newMinions, newGen) = lookupMinions (gb^.idGen) names
    playerAt i.activeMinions .= newMinions
    idGen .= newGen
setActiveMinions i names = do
    gb <- get
    let (newMinions, newGen) = lookupMinions (gb^.idGen) names
    playerAt i.activeMinions .= newMinions
    idGen .= newGen