diff --git a/lib/wallet/src/Cardano/Wallet/Write/Tx/Gen.hs b/lib/wallet/src/Cardano/Wallet/Write/Tx/Gen.hs index 12b5882c874..d7107872a36 100644 --- a/lib/wallet/src/Cardano/Wallet/Write/Tx/Gen.hs +++ b/lib/wallet/src/Cardano/Wallet/Write/Tx/Gen.hs @@ -88,8 +88,11 @@ shrinkDatum NoDatum = [] shrinkBinaryData :: BinaryData LatestLedgerEra -> [BinaryData LatestLedgerEra] shrinkBinaryData = shrinkMapBy datumFromCardanoScriptData - datumToCardanoScriptData - Cardano.shrinkScriptData + datumToCardanoScriptData $ + shrinkMapBy + Cardano.unsafeHashableScriptData + Cardano.getScriptData + Cardano.shrinkScriptData genDatumHash :: Gen DatumHash genDatumHash =