Remove unused function watchUTxOUntil

hydra-node/src/Hydra/Chain/Direct/Wallet.hs

@@ -69,7 +69,7 @@ import Cardano.Ledger.Shelley.API qualified as Ledger
 import Cardano.Ledger.Val (invert)
 import Cardano.Slotting.EpochInfo (EpochInfo)
 import Cardano.Slotting.Time (SystemStart (..))
-import Control.Concurrent.Class.MonadSTM (check, newTVarIO, readTVarIO, writeTVar)
+import Control.Concurrent.Class.MonadSTM (newTVarIO, readTVarIO, writeTVar)
 import Control.Lens (view, (%~), (.~), (^.))
 import Data.List qualified as List
 import Data.Map.Strict ((!))
@@ -144,11 +144,6 @@ data WalletInfoOnChain = WalletInfoOnChain
 
 type ChainQuery m = QueryPoint -> Api.Address ShelleyAddr -> m WalletInfoOnChain
 
-watchUTxOUntil :: (Map TxIn TxOut -> Bool) -> TinyWallet IO -> IO (Map TxIn TxOut)
-watchUTxOUntil predicate TinyWallet{getUTxO} = atomically $ do
-  u <- getUTxO
-  u <$ check (predicate u)
-
 -- | Create a new tiny wallet handle.
 newTinyWallet ::
   -- | A tracer for logging

hydra-node/test/Hydra/Chain/Direct/TxTraceSpec.hs

@@ -227,11 +227,6 @@ latestSnapshotNumber = \case
   (s : _) -> s.number
   _ -> 0
 
-latestSnapshot :: [ModelSnapshot] -> Maybe ModelSnapshot
-latestSnapshot = \case
-  [] -> Nothing
-  (s : _) -> Just s
-
 -- | Model of a real snapshot which contains a 'SnapshotNumber` but also our
 -- simplified form of 'UTxO'.
 data ModelSnapshot = ModelSnapshot