voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-09-19 12:40:42 +03:00
parent 0c38bbf28c
commit 6eb0f08345
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-keyman/hbs2-keyman/Main.hs
View File

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