wgaffa/deck-delta - Change SCI4JXPAPVL5I2GGL2BLXXSQKAD4Z5O2RTS4UODNFVKNC262ABIAC

Track changes in category

Created by wgaffa on February 10, 2024

SCI4JXPAPVL5I2GGL2BLXXSQKAD4Z5O2RTS4UODNFVKNC262ABIAC

Dependencies

In channels

main

Change contents

Replacement in src/Deck.hs at line 28 [4.191]

B:BD[3.99] → [2.0:69]

data DeckDifference = Add !Card | Remove !Card | ChangeQuantity !Int

[3.99]

[3.146]

data DeckDifference
    = Add !Card
    | Remove !Card
    | ChangeQuantity !CardName !Int
    | ChangeCategory !CardName !Category !Category

Replacement in src/Deck.hs at line 36 [4.191]

B:BD[3.180] → [2.70:131]

partialEqCard :: Eq a => (Card -> a) -> Card -> Card -> Bool

[3.180]

[2.131]

partialEqCard :: (Eq a) => (Card -> a) -> Card -> Card -> Bool

Replacement in src/Deck.hs at line 49 [4.191]

B:BD[2.305] → [2.305:632]

∅:D[2.632] → [3.801:836]

B:BD[3.801] → [3.801:836]

        | not $ partialEqCard quantity x y =
            go
                ( ChangeQuantity
                    ( (fromIntegral . unrefine . quantity $ y)
                        - (fromIntegral . unrefine . quantity $ x)
                    )
                    : acc
                )
                xs
                ys
        | otherwise = go acc xs ys

[2.305]

        | otherwise =
            let chQ = ChangeQuantity (name x) (runQuantity y - runQuantity x)
                chC = ChangeCategory (name x) (category x) (category y)
            in case (partialEqCard quantity x y, partialEqCard category x y) of
                (True, True) -> go acc xs ys
                (False, False) -> go (chQ : chC : acc) xs ys
                (False, _) -> go (chQ : acc) xs ys
                (_, False) -> go (chC : acc) xs ys
    runQuantity = fromIntegral . unrefine . quantity