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-03-27 10:35:14 +03:00
parent 9f85f2f31f
commit f23ec4ab9e
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-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
View File

@ -287,8 +287,8 @@ updateState = do
Right txs -> do Right txs -> do
-- FIXME: skip-already-processed-blocks -- FIXME: skip-already-processed-blocks
for_ txs $ \htx -> void $ runMaybeT do for_ txs $ \htx -> void $ runMaybeT do
done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) -- done <- liftIO $ withDB db (isTxProcessed (HashVal htx))
guard (not done) -- guard (not done)
getBlock sto (fromHashRef htx) getBlock sto (fromHashRef htx)
>>= toMPlus >>= toMPlus
<&> deserialiseOrFail @(RefChanUpdate L4Proto) <&> deserialiseOrFail @(RefChanUpdate L4Proto)