wgaffa/deck-delta - Change NTDJHZEDMSCQEO5YHDPJP6ZABXWNASFND7UFQE5BXQEIQMQ35U3AC

Removed insert and defined additions using the add function instead

Created by wgaffa on April 9, 2024

NTDJHZEDMSCQEO5YHDPJP6ZABXWNASFND7UFQE5BXQEIQMQ35U3AC

Dependencies

In channels

main

Change contents

Deletion in src/Repr/StateRep.hs at line 81 [4.36]
B:BD[3.79] → [3.79:106]
B:BD[3.106] → [5.481:522]
∅:D[5.522] → [3.142:207]
B:BD[3.142] → [3.142:207]
```
    insert card decklist =
        let cardName = card ^. Deck.name
         in R $ Map.insert (toText cardName) card (unR decklist)
```

Deletion in src/Repr/DiffRep.hs at line 64 [6.53]

B:BD[6.1833] → [6.1833:2585]

                    ]
         in DiffR $ line [unDiffR content, entry]
    insert card content =
        let mappedCategories =
                Map.foldrWithKey
                    ( \key category acc ->
                        Text.intercalate
                            " "
                            [Text.pack . show . toNumber @Int $ category ^. copies, quote key]
                            : acc
                    )
                    []
                    $ card ^. categories
            entry =
                Text.intercalate
                    " "
                    [ "A"
                    , quote . toText $ card ^. Deck.name
                    , Text.cons '[' . flip Text.snoc ']' $ Text.intercalate ", " mappedCategories

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

B:BD[7.381] → [7.381:492]


    -- | Insert a card into the object space
    insert :: Card -> repr (DeckRep repr) -> repr (DeckRep repr)

Replacement in src/Deck/Diff.hs at line 104 [4.3955]
B:BD[8.683] → [8.683:705]
```
        let deltas = 
```
[8.683]
[8.705]
```
        let deltas =
```

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

B:BD[8.1405] → [8.1405:1527]

                    LT -> takeAvailable (PositiveNumber . unsafeRefine . fromIntegral . abs $ delta) (x ^. Category.name)

[8.1405]

[8.1527]

                    LT ->
                        takeAvailable
                            (PositiveNumber . unsafeRefine . fromIntegral . abs $ delta)
                            (x ^. Category.name)

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

B:BD[8.1562] → [8.1562:1679]

                    GT -> fulfillRequest (PositiveNumber . unsafeRefine . fromIntegral $ delta) (x ^. Category.name)

[8.1562]

[9.4820]

                    GT ->
                        fulfillRequest
                            (PositiveNumber . unsafeRefine . fromIntegral $ delta)
                            (x ^. Category.name)

Insertion in src/Deck/Diff.hs at line 168 [4.3955]

[8.2790]

[10.1647]

toRepr :: (DeckSYM repr) => Card -> [DiffSig repr]
toRepr card =
    let addCard = Deck.Diff.add (card ^. Deck.name)
     in Map.foldr'
            (\x acc -> addCard (x ^. Category.name) (x ^. copies) : acc)
            []
            (card ^. categories)

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

B:BD[2.862] → [2.862:912]

    go acc [] ys = acc ++ map Deck.Diff.insert ys

[2.862]

[4.5224]

    go acc [] ys = acc ++ concatMap toRepr ys

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

B:BD[2.976] → [2.976:1056]

        | x ^. Deck.name > y ^. Deck.name = go (Deck.Diff.insert y : acc) lx ys

[2.976]

[10.1989]

        | x ^. Deck.name > y ^. Deck.name = go (acc ++ toRepr y) lx ys