SV5ID4TDECS35D2F4XYBVEFIIVOZYCHV6BTZBS7QYTOTJRDBGCIAC
DN2F55HBRBTHQAJDU4GOOGAEAXH5MIFPQSPEK2NNAPDJPZOOFJFQC
DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC
delete cardName decklist = R $ Map.delete (toText cardName) (unR decklist) insert card decklist = let cardName = card ^. name in R $ Map.insert (toText cardName) card (unR decklist)
delete cardName decklist = R $ Map.delete (toText cardName) (unR decklist)
insert card decklist =
let cardName = card ^. name
in R $ Map.insert (toText cardName) card (unR decklist)