wgaffa/deck-delta - Change 4K7I3AJQDM4TLBF45D5FTFH2STCRYVQJQSPDI3UW4TEIW33AAYNQC

Fixed a bug where it wasnt moving cards if the other category didnt exist

Created by wgaffa on March 27, 2024

4K7I3AJQDM4TLBF45D5FTFH2STCRYVQJQSPDI3UW4TEIW33AAYNQC

Dependencies

In channels

main

Change contents

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

∅:D[2.109] → [3.344:356]

B:BD[3.344] → [3.344:356]

B:BD[3.356] → [2.110:182]

∅:D[2.182] → [3.421:523]

B:BD[3.421] → [3.421:523]

B:BD[3.523] → [2.183:480]

∅:D[2.480] → [3.627:722]

B:BD[3.627] → [3.627:722]

        R $
            let newCard = mkCard cardname initialCategory initialCopies
             in Map.alter
                    ( \case
                        Nothing -> Just newCard
                        Just x ->
                            Just $
                                over
                                    (categories . ix (toText initialCategory) . copies)
                                    (uncheckedAdd initialCopies)
                                    x
                    )
                    (toText cardname)
                    $ unR decklist

[2.109]

[5.443]

        R $ Map.alter updateCard (toText cardname) $ unR decklist
      where
        updateCard = \case
            Nothing -> Just $ mkCard cardname initialCategory initialCopies
            Just x ->
                case x ^? categories . ix (toText initialCategory) of
                    Nothing ->
                        pure $
                            x
                                & categories . at (toText initialCategory)
                                    ?~ Category initialCategory initialCopies
                    Just y ->
                        let mergedCategory = (y & copies %~ uncheckedAdd initialCopies)
                         in pure $ x & categories . at (toText initialCategory) ?~ mergedCategory