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:46:06 +03:00
parent 6eb0f08345
commit 627a3e0911
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,7 +139,7 @@ updateKeys = do
-- FIXME: assume-huge-list -- FIXME: assume-huge-list
seen <- withState selectAllSeenGKTx seen <- withState selectAllSeenGKTx
debug $ "SEEN" <+> pretty (List.length seen) trace $ "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 ()