From 7baa631f3c227b29fe702053a20f1ea98fc1f51e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 8 Aug 2022 22:22:09 +0200 Subject: Test: stored generation --- src/Storage/Merge.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Storage') 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 -- cgit v1.2.3