wgaffa/deck-delta - Change OQQ45NRBSXM5JXRTLDLP7CEBR4LPBAFY46AQHZTO2TXJMRKQVJNAC

Add find to search for a card in a decklist

Created by wgaffa on February 16, 2024

OQQ45NRBSXM5JXRTLDLP7CEBR4LPBAFY46AQHZTO2TXJMRKQVJNAC

Dependencies

In channels

main

Change contents

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

B:BD[3.865] → [2.99:138]

∅:D[2.138] → [3.911:1045]

B:BD[3.911] → [3.911:1045]

    let cname = unrefine . runText $ a
        argname (Arg x _) = x
        card = find ((== cname) . argname) . runDeckList $ b
        tuple x = (category x, quantity x)

[3.865]

[3.1045]

    let tuple x = (category x, quantity x)

Replacement in src/Deck.hs at line 104 [4.191]
B:BD[3.1108] → [3.1108:1129]
```
     in case card of
```
[3.1108]
[2.139]
```
     in case Deck.find a b of
```

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

B:BD[2.164] → [2.164:235]

            Just ((Arg _ y)) -> insert (flip toCard y . f $ tuple y) b

[2.164]

[5.98]

            Just y -> insert (flip toCard y . f $ tuple y) b
-- | Find @cname@ in the list @xs@, return Nothing if it doesn't exist in the list
find :: CardName -> DeckList -> Maybe Card
find cname xs =
    let cname' = unrefine . runText $ cname
        argName (Arg x _) = x
        argCard (Arg _ x) = x
     in  argCard <$> (Data.Foldable.find ((== cname') . argName) . runDeckList $ xs)