Remove unused function canApply

cardano-scaling · Dec 8, 2024 · 38c804c · 38c804c
1 parent 77b0e2f
commit 38c804c
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/hydra-node/src/Hydra/Ledger.hs b/hydra-node/src/Hydra/Ledger.hs
@@ -34,10 +34,6 @@ newtype Ledger tx = Ledger
   -- necessarily the same as the given UTxO after some transactions
   }
 
-canApply :: Ledger tx -> ChainSlot -> UTxOType tx -> tx -> ValidationResult
-canApply ledger slot utxo tx =
-  either (Invalid . snd) (const Valid) $ applyTransactions ledger slot utxo (pure tx)
-
 -- | Collect applicable transactions and resulting UTxO. In contrast to
 -- 'applyTransactions', this functions continues on validation errors.
 collectTransactions :: Ledger tx -> ChainSlot -> UTxOType tx -> [tx] -> ([tx], UTxOType tx)