From 902dd42e0141ff82500b8f585e89206f7d8a0cdc Mon Sep 17 00:00:00 2001 From: Daniel Firth Date: Sun, 8 Dec 2024 17:26:11 +0000 Subject: [PATCH] Remove unused function isInitialSnapshot --- hydra-tx/src/Hydra/Tx/Snapshot.hs | 7 ------- 1 file changed, 7 deletions(-) diff --git a/hydra-tx/src/Hydra/Tx/Snapshot.hs b/hydra-tx/src/Hydra/Tx/Snapshot.hs index 4f510eba96c..3b174956f94 100644 --- a/hydra-tx/src/Hydra/Tx/Snapshot.hs +++ b/hydra-tx/src/Hydra/Tx/Snapshot.hs @@ -184,13 +184,6 @@ getSnapshot = \case } ConfirmedSnapshot{snapshot} -> snapshot --- | Tell whether a snapshot is the initial snapshot coming from the collect-com --- transaction. -isInitialSnapshot :: ConfirmedSnapshot tx -> Bool -isInitialSnapshot = \case - InitialSnapshot{} -> True - ConfirmedSnapshot{} -> False - instance (Arbitrary tx, Arbitrary (UTxOType tx), IsTx tx) => Arbitrary (ConfirmedSnapshot tx) where arbitrary = do ks <- arbitrary