From 255f3a01d38818c512e00d3d95f195577567cb00 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 16 Sep 2024 19:39:41 +0300
Subject: [PATCH] wip

---
 fixme-new/lib/Fixme/GK.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fixme-new/lib/Fixme/GK.hs b/fixme-new/lib/Fixme/GK.hs
index 56e12119..58baf1f9 100644
--- a/fixme-new/lib/Fixme/GK.hs
+++ b/fixme-new/lib/Fixme/GK.hs
@@ -24,6 +24,7 @@ import Lens.Micro.Platform
 data GroupKeyOpError =
     NoRefChanHead
   | NoReadersSet
+  | GKLoadFailed
   deriving (Eq,Ord,Show,Typeable)
 
 instance Exception GroupKeyOpError
@@ -53,7 +54,7 @@ loadGroupKey = do
 
     flip fix 0 $ \next -> \case
 
-      attempt | attempt > 2 -> mzero
+      attempt | attempt > 2 -> throwIO GKLoadFailed
 
       attempt -> do