Skip to content

Commit

Permalink
Remove dead code
Browse files Browse the repository at this point in the history
  • Loading branch information
berewt committed Mar 27, 2023
1 parent dc56dd5 commit 3b9fe1c
Showing 1 changed file with 0 additions and 20 deletions.
20 changes: 0 additions & 20 deletions plutus-chain-index-core/test/Plutus/ChainIndex/MarconiSpec.hs
Expand Up @@ -111,24 +111,4 @@ checkTxInStorage = property $ do
length eventTxIns Hedgehog.=== length originalTxIns
)
txOutAddr
{-
let blocksTxs = blocks ^.. folded . to blockTxs . folded . _1
lastTx = blocksTxs ^? _last
lastTxIn = lastTx ^? folded . citxInputs . _last . to txInRef
lastTxInAddr = lastTxIn >>= flip findTxOutRefAddr blocksTxs
txouts <- maybe
(pure $ Right $ UtxosResponse TipAtGenesis $ pageOf def mempty)
(\addr -> do
liftIO $ runChainIndexEffects (RunRequirements nullTracer indexers) $ do
appendBlocks blocks
utxoSetAtAddress def addr
)
lastTxInAddr
let indexedTxOuts = pageItems . page <$> txouts
events <- getUtxoEvents indexers

Hedgehog.annotateShow events
Hedgehog.annotateShow lastTxIn
Hedgehog.annotateShow indexedTxOuts
Hedgehog.assert $ either (const False) (not . maybe (const True) elem lastTxIn) indexedTxOuts
-}

0 comments on commit 3b9fe1c

Please sign in to comment.