wgaffa/deck-delta - Change 5S6DMMS6RNLBCD4C5H2YCQMKS3IMJX7YBQOL5Q6ZLQ6H5AFKSKYQC

Remove function that was unnecessary

Created by wgaffa on April 9, 2024

5S6DMMS6RNLBCD4C5H2YCQMKS3IMJX7YBQOL5Q6ZLQ6H5AFKSKYQC

Dependencies

In channels

main

Change contents

Deletion in src/Repr/StateRep.hs at line 67 [6.36]

∅:D[4.238] → [5.443:444]

∅:D[7.722] → [5.443:444]

∅:D[2.734] → [5.443:444]

B:BD[5.443] → [5.443:444]

B:BD[5.444] → [7.723:767]

B:BD[7.767] → [8.99:134]

∅:D[8.134] → [7.802:1118]

B:BD[7.802] → [7.802:1118]

B:BD[7.1118] → [8.135:162]


    remove cardName categoryName decklist =
        R
            $ Map.update
                ( \card ->
                    let newCard = over categories (Map.delete (toText categoryName)) card
                     in if Map.null $ newCard ^. categories
                            then Nothing
                            else Just newCard
                )
                (toText cardName)
            $ unR decklist

Deletion in src/Repr/DiffRep.hs at line 10 [9.53]
B:BD[9.391] → [9.391:424]
```
import qualified Data.Map as Map
```
Deletion in src/Repr/DiffRep.hs at line 12 [9.53]
B:BD[9.528] → [9.528:549]
```
import Control.Lens
```
Deletion in src/Repr/DiffRep.hs at line 13 [9.53]
B:BD[9.550] → [3.208:266]
```
import Deck.Category as Category
import Deck.Deck as Deck
```

Deletion in src/Repr/DiffRep.hs at line 43 [9.53]

B:BD[9.1339] → [9.1339:1654]

    remove cardname categoryname content =
        let entry =
                Text.intercalate
                    " "
                    [ "D"
                    , quote $ toText cardname
                    , quote $ toText categoryname
                    ]
         in DiffR $ line [unDiffR content, entry]

Deletion in src/Deck/Diff.hs at line 49 [6.3955]

B:BD[6.4284] → [10.134:271]

    -- | Remove a card from a category in the deck
    remove :: CardName -> CategoryName -> repr (DeckRep repr) -> repr (DeckRep repr)