From 9e07f08c019a4951fff0a969ca3fb88c8a0d9569 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
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/Internal.hs')

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