We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 97c1553 commit d689484Copy full SHA for d689484
src/Cardano/Transaction/Builder.purs
@@ -504,9 +504,9 @@ useMintAssetWitness scriptHash assetName amount witness = do
504
let
505
thisMint = Mint.singleton scriptHash assetName amount
506
newMint <- case mbMint of
507
- Nothing -> pure thisMint
+ Nothing -> pure $ Just thisMint
508
Just mint -> pure $ Mint.union mint thisMint
509
- modify_ $ _transaction <<< _body <<< _mint .~ Just newMint
+ modify_ $ _transaction <<< _body <<< _mint .~ newMint
510
511
assertScriptHashMatchesCredentialWitness
512
:: ScriptHash
0 commit comments