From 74f8a3df438c1abe6ac327f7c6e71dcc9c98db32 Mon Sep 17 00:00:00 2001
From: euonymos <ilia@mlabs.city>
Date: Tue, 10 Dec 2024 16:33:23 -0600
Subject: [PATCH] chore: redundant imports

---
 src/Cardano/CEM/Indexing/Event.hs | 8 +-------
 test/Auction.hs                   | 2 +-
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/Cardano/CEM/Indexing/Event.hs b/src/Cardano/CEM/Indexing/Event.hs
index 5a93a99..f57ad6f 100644
--- a/src/Cardano/CEM/Indexing/Event.hs
+++ b/src/Cardano/CEM/Indexing/Event.hs
@@ -12,7 +12,6 @@ import Cardano.CEM.Indexing.Tx
 import Cardano.CEM.OnChain (CEMScriptCompiled)
 import Cardano.Ledger.BaseTypes qualified as Ledger
 import Control.Lens (view, (^.))
-import Data.Bifunctor (first)
 import Data.ByteString.Base16 qualified as B16
 import Data.Data (Proxy (Proxy))
 import Data.Either.Extra (eitherToMaybe)
@@ -92,12 +91,7 @@ extractEvent network tx = do
   let mTargetSpine :: Maybe (Spine (State script)) = getSpine <$> mTargetState
 
   -- Look up the transition
-  let transitions =
-        -- first
-        -- (\(_, b, c) -> (b, c))
-        -- .
-        swap
-          <$> Map.toList (transitionStage $ Proxy @script)
+  let transitions = swap <$> Map.toList (transitionStage $ Proxy @script)
   let transSpine = lookup (mSourceSpine, mTargetSpine) transitions
 
   -- Return
diff --git a/test/Auction.hs b/test/Auction.hs
index c1a2312..5aee123 100644
--- a/test/Auction.hs
+++ b/test/Auction.hs
@@ -21,7 +21,7 @@ import TestNFT (testNftAssetClass)
 import Utils (
   execClb,
   mintTestTokens,
-  perTransitionStats,
+  -- perTransitionStats,
   submitAndCheck,
   submitCheckReturn,
  )