Remove unused function shrinkInputResolution.

cardano-foundation · May 8, 2024 · 7e0cbfb · 7e0cbfb
1 parent 253774a
commit 7e0cbfb
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/BalanceSpec.hs b/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/BalanceSpec.hs
@@ -392,7 +392,6 @@ import Test.QuickCheck.Extra
     , getDisjointPair
     , shrinkDisjointPair
     , shrinkMapToSubmaps
-    , shrinkMapValuesWith
     , shrinkNatural
     , (.>=.)
     , (<:>)
@@ -2335,14 +2334,6 @@ shrinkFee :: Ledger.Coin -> [Ledger.Coin]
 shrinkFee (Ledger.Coin 0) = []
 shrinkFee _ = [Ledger.Coin 0]
 
--- TODO: ADP-3272
--- Fix this function so that it returns something other than the empty list.
-shrinkInputResolution :: IsRecentEra era => Write.UTxO era -> [Write.UTxO era]
-shrinkInputResolution =
-    shrinkMapBy UTxO unUTxO (shrinkMapValuesWith shrinkOutput)
-  where
-    shrinkOutput _ = []
-
 shrinkScriptData
     :: Era (CardanoApi.ShelleyLedgerEra era)
     => CardanoApi.TxBodyScriptData era