We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent be1dd96 commit 901aae2Copy full SHA for 901aae2
cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs
@@ -644,10 +644,7 @@ genTxInsReference :: CardanoEra era -> Gen (TxInsReference BuildTx era)
644
genTxInsReference era =
645
case refInsScriptsAndInlineDatsSupportedInEra era of
646
Nothing -> pure TxInsReferenceNone
647
- Just supported -> Gen.choice
648
- [ pure TxInsReferenceNone
649
- , TxInsReference supported <$> Gen.list (Range.linear 0 10) genTxIn
650
- ]
+ Just supported -> TxInsReference supported <$> Gen.list (Range.linear 0 10) genTxIn
651
652
653
genTxReturnCollateral :: CardanoEra era -> Gen (TxReturnCollateral CtxTx era)
0 commit comments