wgaffa/deck-delta - Change 2P34LOESTKTXTUTLVASZEKZ3VEFVHBJDZJ3LLAOGKH3GECC76LCQC

HunkSYM move now takes the number of copies to move

Created by wgaffa on April 2, 2024

2P34LOESTKTXTUTLVASZEKZ3VEFVHBJDZJ3LLAOGKH3GECC76LCQC

Dependencies

In channels

main

Change contents

Replacement in src/Diff.hs at line 72 [3.3955]

B:BD[3.4494] → [2.1301:1371]

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

[3.4494]

[4.713]

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

Insertion in src/StateRep.hs at line 32 [3.36]
[4.97]
[4.97]
```
import Refined.Unsafe
```

Replacement in src/StateRep.hs at line 91 [3.36]

B:BD[2.524] → [2.524:694]

    move old new = R $ \card ->
        let removeOld x = x & categories %~ Map.delete (toText old)
            oldCopies = card ^? categories . ix (toText old) . copies

[2.524]

[2.694]

    move old new numCopies = R $ \card ->
        let oldCopies = card ^? categories . ix (toText old) . copies
            copiesToMove = oldCopies <&> max numCopies

Replacement in src/StateRep.hs at line 102 [3.36]

B:BD[2.1020] → [2.1020:1102]

         in oldCopies <&> removeOld . (\x -> card & categories .~ updateCopies x)

[2.1020]

[5.207]

            updateOld =
                Map.update
                    ( \y ->
                        let (l, r) = (toNumber @Int $ y ^. copies, toNumber @Int numCopies)
                         in if (y ^. copies) <= numCopies
                            then Nothing
                            else Just $ y & copies .~ (PositiveNumber . unsafeRefine . fromIntegral $ (r - l))
                    )
                    (toText old)
                    (card ^. categories)
         in copiesToMove <&> (\x -> x & categories .~ updateOld) . (\x -> card & categories .~ updateCopies x)