wgaffa/deck-delta - Change R44PWZWNIUBFGLCRPVSK2VENIOPLOMPZUQS76JUQYIRXLZZLH53AC

Cleanup some code

Created by wgaffa on April 6, 2024

R44PWZWNIUBFGLCRPVSK2VENIOPLOMPZUQS76JUQYIRXLZZLH53AC

Dependencies

In channels

main

Change contents

Deletion in src/Diff.hs at line 10 [6.3955]
B:BD[4.10] → [5.0:17]
```
    totalCopies,
```
Deletion in src/Diff.hs at line 16 [6.3955]
B:BD[7.53] → [3.2831:2853]
```
import Data.Bifunctor
```
Deletion in src/Diff.hs at line 22 [6.3955]
B:BD[7.109] → [5.63:93]
```
import Data.Monoid (Sum (..))
```
Deletion in src/Diff.hs at line 23 [6.3955]
∅:D[7.133] → [6.4185:4186]
∅:D[8.2236] → [6.4185:4186]
B:BD[6.4185] → [6.4185:4186]
B:BD[6.4186] → [3.2854:2877]
```
import Numeric.Natural
```
Deletion in src/Diff.hs at line 24 [6.3955]
∅:D[3.2878] → [5.94:109]
B:BD[6.4186] → [5.94:109]
```
import Refined
```

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

∅:D[2.781] → [6.4721:4722]

∅:D[9.1053] → [6.4721:4722]

B:BD[6.4721] → [6.4721:4722]

B:BD[6.4722] → [5.212:424]


totalCopies :: Card -> PositiveNumber
totalCopies card =
    PositiveNumber . unsafeRefine . getSum $
        mconcat . map (Sum . unrefine . runNumber . view copies) $
            card ^.. categories . traverse

Cleanup some code

Dependencies

In channels

Change contents

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

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

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

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

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

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