From 7baa631f3c227b29fe702053a20f1ea98fc1f51e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
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