From 92b77b350ac67e01102f194034075dee9654d618 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 27 Mar 2024 10:38:17 +0300 Subject: [PATCH] wip, wtf --- hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 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 f0249574..a2460dc6 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 @@ -84,9 +84,9 @@ runOracleIndex auPk = do Right hxs -> do for_ hxs $ \htx -> void $ runMaybeT do - done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) - done1 <- liftIO $ withDB db (isTxProcessed (processedRepoTx (gitLwwRef,htx))) - guard (not done && not done1) + -- done <- liftIO $ withDB db (isTxProcessed (HashVal htx)) + -- done1 <- liftIO $ withDB db (isTxProcessed (processedRepoTx (gitLwwRef,htx))) + -- guard (not done && not done1) getBlock sto (fromHashRef htx) >>= toMPlus <&> deserialiseOrFail @(RefLogUpdate L4Proto) >>= toMPlus