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

wip, wtf

This commit is contained in:
Dmitry Zuikov 2024-03-27 10:38:17 +03:00
parent 61db2c9a4e
commit 92b77b350a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
View File

@ -84,9 +84,9 @@ runOracleIndex auPk = do
Right hxs -> do Right hxs -> do
for_ hxs $ \htx -> void $ runMaybeT do for_ hxs $ \htx -> void $ runMaybeT do
done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) -- done <- liftIO $ withDB db (isTxProcessed (HashVal htx))
done1 <- liftIO $ withDB db (isTxProcessed (processedRepoTx (gitLwwRef,htx))) -- done1 <- liftIO $ withDB db (isTxProcessed (processedRepoTx (gitLwwRef,htx)))
guard (not done && not done1) -- guard (not done && not done1)
getBlock sto (fromHashRef htx) >>= toMPlus getBlock sto (fromHashRef htx) >>= toMPlus
<&> deserialiseOrFail @(RefLogUpdate L4Proto) <&> deserialiseOrFail @(RefLogUpdate L4Proto)
>>= toMPlus >>= toMPlus