Fix Arbitrary instance for Credential

IntersectMBO · Dec 15, 2024 · 5343fd8 · 5343fd8
1 parent 509555c
commit 5343fd8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libs/cardano-ledger-core/testlib/Test/Cardano/Ledger/Core/Arbitrary.hs b/libs/cardano-ledger-core/testlib/Test/Cardano/Ledger/Core/Arbitrary.hs
@@ -343,7 +343,7 @@ genBadPtr = Ptr <$> arbitrary <*> arbitrary <*> arbitrary
 instance Arbitrary (Credential r) where
   arbitrary =
     oneof
-      [ ScriptHashObj . ScriptHash <$> arbitrary
+      [ ScriptHashObj <$> arbitrary
       , KeyHashObj <$> arbitrary
       ]