removeCard :: CardID -> [Card] -> [Card]
removeCard cID = filter (\card -> card^.cardID /= cID)
removeCard :: CardID -> [Card] -> [Card]
removeCard cID = filter (\card -> card^.cardID /= cID)
removeCard cID = filter (\card -> card^.cardID /= cID)