From a22e1635dee1d3bfd2999a40adc9bf46bfce1165 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 6 Dec 2024 13:46:28 +0300 Subject: [PATCH] wip25 --- hbs2-git3/app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index f7cb0d19..bf8f8e39 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -1194,8 +1194,8 @@ theDict = do co <- withState $ selectCommitsByCBlock cb e <- mapM gitObjectExists co <&> and debug $ "WHATEVER" <+> pretty e <+> pretty cb <+> pretty co - pure True - -- pure $ not e + -- pure True + pure $ not e traverseToCBlock sto cb whatever $ \i h hs -> do debug $ green "process cblock data" <+> pretty i <+> pretty h