Fix shrinkBinaryData shrinker.

cardano-foundation · Mar 16, 2023 · fdca418 · fdca418
1 parent 841196a
commit fdca418
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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 =