diff options
Diffstat (limited to 'src/Storage')
| -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 |