From 9e07f08c019a4951fff0a969ca3fb88c8a0d9569 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 7 Dec 2021 21:47:50 +0100 Subject: Storage: guard changes on watched heads --- src/Storage/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Storage') diff --git a/src/Storage/Internal.hs b/src/Storage/Internal.hs index 7e593f8..3a05029 100644 --- a/src/Storage/Internal.hs +++ b/src/Storage/Internal.hs @@ -154,7 +154,7 @@ newtype Generation = Generation Int deriving (Eq, Show) data Head' c a = Head HeadID (Stored' c a) - deriving (Show) + deriving (Eq, Show) newtype HeadID = HeadID UUID deriving (Eq, Ord, Show) -- cgit v1.2.3