wgaffa/deck-delta - Change TQFB56HHRWAM4MG3BP5DWSRUWXKM7QTFVGFEX5PCKYBXXLLXBM5QC

Move evalMany to new module and make it more generic

Created by wgaffa on April 11, 2024

TQFB56HHRWAM4MG3BP5DWSRUWXKM7QTFVGFEX5PCKYBXXLLXBM5QC

Dependencies

In channels

main

Change contents

Deletion in src/Repr/StateRep.hs at line 17 [3.36]
B:BD[3.240] → [3.240:254]
B:BD[3.254] → [4.0:16]
```
    evalMany,
    evalManyOn,
```
Deletion in src/Repr/StateRep.hs at line 20 [3.36]
∅:D[5.25] → [3.291:312]
∅:D[6.60] → [3.291:312]
B:BD[3.291] → [3.291:312]
```
import Data.Foldable
```

Deletion in src/Repr/StateRep.hs at line 109 [3.36]

B:BD[3.1882] → [7.1173:1252]

∅:D[7.1252] → [4.17:52]

B:BD[3.1940] → [4.17:52]

B:BD[4.52] → [7.1253:1432]

evalMany :: (Traversable t) => t (R (DeckRep R) -> R (DeckRep R)) -> DeckRep R
evalMany = flip evalManyOn mempty
evalManyOn ::
    (Traversable t) => t (R (DeckRep R) -> R (DeckRep R)) -> DeckRep R -> DeckRep R
evalManyOn instr initDeck = unR $ foldl' (\acc f -> f acc) (deck initDeck) instr

File addition: Interpret.hs (----------)

[8.38]

module Repr.Interpret (
    evalMany,
    evalManyOn,
) where
import Data.Foldable
import Deck.Diff
evalMany :: (Traversable t, DeckSYM m) => t (m (DeckRep m) -> m (DeckRep m)) -> m (DeckRep m)
evalMany = flip evalManyOn empty
evalManyOn :: (Traversable t, DeckSYM m) => t (m (DeckRep m) -> m (DeckRep m)) -> m (DeckRep m) -> m (DeckRep m)
evalManyOn = flip (foldl' (\acc f -> f acc))

Replacement in src/Repr/DiffRep.hs at line 9 [9.53]
B:BD[2.10] → [2.10:21]
```
    view',
```
[2.10]
[9.353]
```
    eval,
```
Deletion in src/Repr/DiffRep.hs at line 14 [9.53]
B:BD[9.483] → [2.22:43]
```
import Data.Foldable
```
Insertion in src/Repr/DiffRep.hs at line 17 [9.53]
[9.618]
[9.618]
```
import Repr.Interpret
```

Replacement in src/Repr/DiffRep.hs at line 84 [9.53]

B:BD[2.85] → [2.85:238]

view' :: (Traversable t) => t (DiffR (DeckRep DiffR) -> DiffR (DeckRep DiffR)) -> DeckRep DiffR
view' = unDiffR . foldl' (\acc f -> f acc) (deck mempty)

[2.85]

eval :: (Traversable t) => t (DiffR (DeckRep DiffR) -> DiffR (DeckRep DiffR)) -> DiffR (DeckRep DiffR)
eval = evalMany

Insertion in src/Parser.hs at line 1 [3.2023]
[3.2023]
[3.2024]
```
{-# LANGUAGE ExplicitForAll #-}
```
Deletion in src/Parser.hs at line 5 [3.2023]
B:BD[3.2154] → [2.239:271]
```
{-# LANGUAGE ExplicitForAll #-}
```
Deletion in src/Parser.hs at line 14 [3.2023]
B:BD[3.2253] → [2.292:318]
```
import Control.Concurrent
```
Insertion in src/Parser.hs at line 34 [3.2023]
[2.395]
[3.2526]
```
import Repr.Interpret
```

Replacement in src/Parser.hs at line 74 [3.2023]

B:BD[2.444] → [2.444:540]

readDiffFiles :: FilePath -> FilePath -> IO (Either [ReadError] (Map Text Card, Map Text Card))

[2.444]

[2.540]

readDiffFiles ::
    FilePath -> FilePath -> IO (Either [ReadError] (Map Text Card, Map Text Card))

Replacement in src/Parser.hs at line 77 [3.2023]

B:BD[2.575] → [2.575:699]

    oldTask <- async (fmap evalMany <$> readDeckList oldFile)
    newTask <- async (fmap evalMany <$> readDeckList newFile)

[2.575]

[2.699]

    oldTask <- async (fmap (eval . evalMany) <$> readDeckList oldFile)
    newTask <- async (fmap (eval . evalMany) <$> readDeckList newFile)

Deletion in src/Parser.hs at line 95 [3.2023]
B:BD[2.1221] → [2.1221:1222]
Insertion in mtg.cabal at line 21 [11.249]
[8.1344]
[10.1841]
```
        Repr.Interpret,
```
Insertion in app/Main.hs at line 10 [11.1109]
[2.1429]
[2.1429]
```
import Repr.Interpret
```

Replacement in app/Main.hs at line 30 [11.1109]

B:BD[2.1870] → [2.1870:1916]

                TIO.putStrLn $ view' diffDeck

[2.1870]

[2.1916]

                TIO.putStrLn . view . evalMany $ diffDeck

Move evalMany to new module and make it more generic

Dependencies

In channels

Change contents

Deletion in src/Repr/StateRep.hs at line 17 [3.36]

Deletion in src/Repr/StateRep.hs at line 20 [3.36]

Deletion in src/Repr/StateRep.hs at line 109 [3.36]

File addition: Interpret.hs (----------)

Replacement in src/Repr/DiffRep.hs at line 9 [9.53]

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

Insertion in src/Repr/DiffRep.hs at line 17 [9.53]

Replacement in src/Repr/DiffRep.hs at line 84 [9.53]

Insertion in src/Parser.hs at line 1 [3.2023]

Deletion in src/Parser.hs at line 5 [3.2023]

Deletion in src/Parser.hs at line 14 [3.2023]

Insertion in src/Parser.hs at line 34 [3.2023]

Replacement in src/Parser.hs at line 74 [3.2023]

Replacement in src/Parser.hs at line 77 [3.2023]

Deletion in src/Parser.hs at line 95 [3.2023]

Insertion in mtg.cabal at line 21 [11.249]

Insertion in app/Main.hs at line 10 [11.1109]

Replacement in app/Main.hs at line 30 [11.1109]