From 6eb0f0834528a54101b82cba247bc52061df6627 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 19 Sep 2024 12:40:42 +0300
Subject: [PATCH] wip

---
 hbs2-keyman/hbs2-keyman/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hbs2-keyman/hbs2-keyman/Main.hs b/hbs2-keyman/hbs2-keyman/Main.hs
index ba3fdabe..5afa21c8 100644
--- a/hbs2-keyman/hbs2-keyman/Main.hs
+++ b/hbs2-keyman/hbs2-keyman/Main.hs
@@ -139,6 +139,8 @@ updateKeys = do
       -- FIXME: assume-huge-list
       seen <- withState selectAllSeenGKTx
 
+      debug $ "SEEN" <+> pretty (List.length seen)
+
       flip runContT pure $ callCC \exit -> do
         when (List.null rchans) $ exit ()
         so' <- detectRPC
@@ -192,6 +194,7 @@ updateKeys = do
                       notice $ green "found new gk0" <+> pretty gkId <+> pretty gkh
 
                       lift $ lift $ S.yield (Right (gkId, gkh, gk) )
+                      lift $ lift $ S.yield ( Left tx0 )
 
                 _ -> do
                   lift $ S.yield (Left tx0)