wgaffa/deck-delta - Change Y7COVTVYO2MFY7KGICPBFEENWSCRFYJLGVG53LKDWNFUOGXFEZLAC

Add evalManyOn to supply eval with a default CardMap

Created by wgaffa on March 20, 2024

Y7COVTVYO2MFY7KGICPBFEENWSCRFYJLGVG53LKDWNFUOGXFEZLAC

Dependencies

[2] DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC

In channels

main

Change contents

Insertion in src/StateRep.hs at line 12 [2.36]
[2.254]
[2.254]
```
    evalManyOn,
```

Replacement in src/StateRep.hs at line 72 [2.36]

B:BD[2.1940] → [2.1940:1988]

evalMany x = flip execState mempty $ mapM unR x

[2.1940]

evalMany = flip evalManyOn mempty
evalManyOn :: (Traversable t) => t (RDefault ()) -> CardMap -> CardMap
evalManyOn x initDeck = flip execState initDeck $ mapM unR x