setDeck :: Int -> [String] -> State GameBuilder ()
setDeck i names = do
    gb <- get
    let (newCards, newGen) = lookupCards (gb^.idGen) names
    playerAt i.deck.cards .= newCards
    idGen .= newGen
setDeck :: Int -> [String] -> State GameBuilder ()
setDeck i names = do
    gb <- get
    let (newCards, newGen) = lookupCards (gb^.idGen) names
    playerAt i.deck.cards .= newCards
    idGen .= newGen
setDeck i names = do
    gb <- get
    let (newCards, newGen) = lookupCards (gb^.idGen) names
    playerAt i.deck.cards .= newCards
    idGen .= newGen