wgaffa/deck-delta - Change WRLD7PACYNQI2F3MAYAM5OK4RHO7CZ4OMYWAZ37UQY2IJ4AYS7LAC

Changed the API for the DSL a bit

Add the deltaCopies to DSL. This in turn changed the api for chunk and relevant functions to go from (Card -> Card) to (Card -> Maybe Card) as the new number of copies can then be below 1 and that should be handled differently depending on the interpreter.

Created by wgaffa on March 18, 2024

WRLD7PACYNQI2F3MAYAM5OK4RHO7CZ4OMYWAZ37UQY2IJ4AYS7LAC

Dependencies

[2] DOPKLXQZP3TDISHODQNI6GZ57EYE42NG225WHSZMQ3L355YVYPNAC

In channels

main

Change contents

Insertion in src/StateRep.hs at line 16 [2.36]
[2.291]
[2.291]
```
import Data.Either.Extra
```

Deletion in src/StateRep.hs at line 44 [2.36]

B:BD[2.1078] → [2.1078:1426]

        case Map.lookup (unrefine . runText $ oldCardName) decklist of
            Nothing -> return ()
            Just oldCard ->
                let newCard = foldl' (\acc cardUpd -> cardUpd acc) oldCard cardFunction
                 in put $
                        Map.update (const $ Just newCard) (unrefine . runText $ oldCardName) decklist

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

B:BD[2.1427] → [2.1427:1491]

    modifyCopies newCopies = do
        return $ \oldCard -> do

[2.1427]

[2.1491]

        put $
            Map.alter
                (\oldCard -> foldl' (>>=) oldCard cardFunction)
                (unrefine . runText $ oldCardName)
                decklist
    modifyCopies newCopies = 
        return $ \oldCard ->

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

B:BD[2.1552] → [2.1552:1597]

            oldCard {quantity = newQuantity}

[2.1552]

[2.1597]

            in Just $ oldCard {quantity = newQuantity}

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

B:BD[2.1598] → [2.1598:1664]

    modifyCategory categoryF = do
        return $ \oldCard -> do

[2.1598]

[2.1664]

    modifyCategory categoryF = 
        return $ \oldCard ->

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

B:BD[2.1730] → [2.1730:1780]

            oldCard {Deck.category = newCategory}

[2.1730]

[2.1780]

            in Just $ oldCard {Deck.category = newCategory}
    deltaCopies delta = return $ \oldCard ->
        let oldCopies = fromIntegral . unrefine . runNumber . quantity $ oldCard
            refinedCopies =
                fmap PositiveNumber . eitherToMaybe . refine . fromIntegral $ oldCopies + delta
         in fmap (\x -> oldCard {quantity = x}) refinedCopies

Deletion in src/Diff.hs at line 10 [2.3955]
B:BD[2.4090] → [2.4090:4112]
```
import Data.Map (Map)
```
Deletion in src/Diff.hs at line 11 [2.3955]
B:BD[2.4145] → [2.4145:4185]
```
import Data.Text (Text)
import Refined
```

Replacement in src/Diff.hs at line 23 [2.3955]

B:BD[2.4414] → [2.4414:4493]

    chunk :: (Traversable t) => CardName -> t (repr (Card -> Card)) -> repr ()

[2.4414]

[2.4493]

    chunk :: (Traversable t) => CardName -> t (repr (Card -> Maybe Card)) -> repr ()

Replacement in src/Diff.hs at line 25 [2.3955]

B:BD[2.4494] → [2.4494:4640]

    modifyCopies :: (PositiveNumber -> PositiveNumber) -> repr (Card -> Card)
    modifyCategory :: (Category -> Category) -> repr (Card -> Card)

[2.4494]

[2.4721]

    modifyCopies :: (PositiveNumber -> PositiveNumber) -> repr (Card -> Maybe Card)
    modifyCategory :: (Category -> Category) -> repr (Card -> Maybe Card)
    deltaCopies :: Int -> repr (Card -> Maybe Card)