wgaffa/deck-delta - Change XQBYALGEDBGQIHMEI4FFDGMQCMOPE4SJLBDROYF5YVMU7H5IKV6AC

Implement move for type R

Created by wgaffa on March 27, 2024

XQBYALGEDBGQIHMEI4FFDGMQCMOPE4SJLBDROYF5YVMU7H5IKV6AC

Dependencies

In channels

main

Change contents

Insertion in src/StateRep.hs at line 6 [4.36]
[3.66]
[2.0]
```
{-# LANGUAGE TemplateHaskell #-}
```
Insertion in src/StateRep.hs at line 32 [4.36]
[2.98]
[4.408]
```
import Category
```

Replacement in src/StateRep.hs at line 48 [4.36]

B:BD[5.203] → [3.293:344]

    add cardname initialCategory copies decklist =

[5.203]

[3.344]

    add cardname initialCategory initialCopies decklist =

Replacement in src/StateRep.hs at line 50 [4.36]

B:BD[3.356] → [3.356:421]

            let newCard = mkCard cardname initialCategory copies

[3.356]

[3.421]

            let newCard = mkCard cardname initialCategory initialCopies

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

B:BD[3.523] → [3.523:627]

                        Just x -> Just $ over categories (Map.insert (toText initialCategory) copies) x

[3.523]

[3.627]

                        Just x ->
                            Just $
                                over
                                    (categories . ix (toText initialCategory) . copies)
                                    (uncheckedAdd initialCopies)
                                    x

Replacement in src/StateRep.hs at line 78 [4.36]

B:BD[6.106] → [6.106:142]

        let cardName = card ^. name

[6.106]

[6.142]

        let cardName = card ^. Deck.name

Replacement in src/StateRep.hs at line 83 [4.36]

B:BD[2.211] → [2.211:271]

    modifyCopies = undefined
    modifyCategory = undefined

[2.211]

[6.207]


    move old new = R $ \card ->
        let removeOld x = x & categories %~ Map.delete (toText old)
            oldCopies = card ^? categories . ix (toText old) . copies
            updateCopies x =
                Map.alter
                    ( \case
                        Nothing -> Just $ Category new x
                        Just oldCategory -> Just $ oldCategory & copies %~ uncheckedAdd x
                    )
                    (toText new)
                    (card ^. categories)
         in oldCopies <&> removeOld . (\x -> card & categories .~ updateCopies x)

Deletion in src/StateRep.hs at line 99 [4.36]
B:BD[2.415] → [2.415:458]
```
            categoryName = toText category
```

Replacement in src/StateRep.hs at line 100 [4.36]

B:BD[2.482] → [2.482:678]

                card ^. categories . at categoryName
                    <&> toNumber @Int
                    <&> (+ delta)
            update x = card & (categories . ix (toText category)) .~ x

[2.482]

[2.678]

                card ^? categories . ix (toText category) . copies
                    <&> (+ delta) . toNumber @Int
            update x = card & (categories . ix (toText category) . copies) .~ x

Replacement in src/Diff.hs at line 54 [4.3955]

B:BD[4.4494] → [5.843:927]

B:BD[5.927] → [3.2771:2853]

    modifyCopies :: (PositiveNumber -> PositiveNumber) -> repr (Card -> Maybe Card)
    modifyCategory :: (CategoryName -> CategoryName) -> repr (Card -> Maybe Card)

[4.4494]

[2.713]

    move :: CategoryName -> CategoryName -> repr (Card -> Maybe Card)