From 627a3e0911d470b0f06d986d8bc663f934269d0e Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 19 Sep 2024 12:46:06 +0300 Subject: [PATCH] wip --- hbs2-keyman/hbs2-keyman/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-keyman/hbs2-keyman/Main.hs b/hbs2-keyman/hbs2-keyman/Main.hs index 5afa21c8..0047cb7a 100644 --- a/hbs2-keyman/hbs2-keyman/Main.hs +++ b/hbs2-keyman/hbs2-keyman/Main.hs @@ -139,7 +139,7 @@ updateKeys = do -- FIXME: assume-huge-list seen <- withState selectAllSeenGKTx - debug $ "SEEN" <+> pretty (List.length seen) + trace $ "SEEN" <+> pretty (List.length seen) flip runContT pure $ callCC \exit -> do when (List.null rchans) $ exit ()