diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2022-08-08 22:22:09 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-08-08 22:22:09 +0200 |
| commit | 7baa631f3c227b29fe702053a20f1ea98fc1f51e (patch) | |
| tree | 003fe72ae55baf45adbd69ece82ee6f85ba22b05 /src/Storage/Merge.hs | |
| parent | ba50676a1fe66c5f24f251984f2cb49c0e98aead (diff) | |
Test: stored generation
Diffstat (limited to 'src/Storage/Merge.hs')
| -rw-r--r-- | src/Storage/Merge.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Storage/Merge.hs b/src/Storage/Merge.hs index c28d290..02b29f7 100644 --- a/src/Storage/Merge.hs +++ b/src/Storage/Merge.hs @@ -3,6 +3,7 @@ module Storage.Merge ( merge, storeMerge, Generation, + showGeneration, compareGeneration, generationMax, storedGeneration, @@ -69,6 +70,9 @@ nextGeneration = foldl' helper (Generation 0) where helper (Generation c) (Generation n) | c <= n = Generation (n + 1) | otherwise = Generation c +showGeneration :: Generation -> String +showGeneration (Generation x) = show x + compareGeneration :: Generation -> Generation -> Maybe Ordering compareGeneration (Generation x) (Generation y) = Just $ compare x y |