fixup: actually use genData

cardano-foundation · Oct 28, 2022 · fc58093 · fc58093
1 parent 7d74fba
commit fc58093
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/lib/wallet/test/unit/Cardano/Wallet/Write/TxSpec.hs b/lib/wallet/test/unit/Cardano/Wallet/Write/TxSpec.hs
@@ -14,7 +14,8 @@ import Cardano.Api.Gen
 import Cardano.Wallet.Unsafe
     ( unsafeFromHex )
 import Cardano.Wallet.Write.Tx
-    ( LatestEra
+    ( BinaryData
+    , LatestEra
     , LatestLedgerEra
     , RecentEra (RecentEraBabbage)
     , Script
@@ -34,7 +35,7 @@ import Cardano.Wallet.Write.Tx
     , toCardanoUTxO
     )
 import Cardano.Wallet.Write.Tx.Gen
-    ( genTxOut )
+    ( genData, genTxOut, shrinkData )
 import Data.Aeson
     ( (.=) )
 import Data.Aeson.Types
@@ -143,6 +144,12 @@ instance Arbitrary Cardano.ScriptData where
      arbitrary = genScriptData
      shrink = shrinkScriptData
 
+-- | The OVERLAPS can be removed when we remove import of
+-- "Test.Cardano.Ledger.Alonzo.Serialisation.Generators"
+instance {-# OVERLAPS #-} Arbitrary (BinaryData LatestLedgerEra) where
+    arbitrary = genData
+    shrink = shrinkData
+
 instance Arbitrary Cardano.ScriptInAnyLang where
     arbitrary = genScriptInAnyLang