chore: redundant imports

mlabs-haskell · Dec 10, 2024 · 74f8a3d · 74f8a3d
1 parent 615dfd6
commit 74f8a3d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git 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
@@ -21,7 +21,7 @@ import TestNFT (testNftAssetClass)
 import Utils (
   execClb,
   mintTestTokens,
-  perTransitionStats,
+  -- perTransitionStats,
   submitAndCheck,
   submitCheckReturn,
  )