From f23ec4ab9ee3cc0daf6928be9c10f711de25f8b4 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 27 Mar 2024 10:35:14 +0300 Subject: [PATCH] wip --- hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs index c0ee5696..f0249574 100644 --- a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs +++ b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs @@ -287,8 +287,8 @@ updateState = do Right txs -> do -- FIXME: skip-already-processed-blocks for_ txs $ \htx -> void $ runMaybeT do - done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) - guard (not done) + -- done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) + -- guard (not done) getBlock sto (fromHashRef htx) >>= toMPlus <&> deserialiseOrFail @(RefChanUpdate L4Proto)