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

wip25

This commit is contained in:
voidlizard 2024-12-06 13:46:28 +03:00
parent 95f9cf6933
commit a22e1635de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git3/app/Main.hs
View File

@ -1194,8 +1194,8 @@ theDict = do
co <- withState $ selectCommitsByCBlock cb co <- withState $ selectCommitsByCBlock cb
e <- mapM gitObjectExists co <&> and e <- mapM gitObjectExists co <&> and
debug $ "WHATEVER" <+> pretty e <+> pretty cb <+> pretty co debug $ "WHATEVER" <+> pretty e <+> pretty cb <+> pretty co
pure True -- pure True
-- pure $ not e pure $ not e
traverseToCBlock sto cb whatever $ \i h hs -> do traverseToCBlock sto cb whatever $ \i h hs -> do
debug $ green "process cblock data" <+> pretty i <+> pretty h debug $ green "process cblock data" <+> pretty i <+> pretty h