Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Remove either error id pattern in Samples

Browse source
This commit is contained in:
Seungheon Oh 2022-06-17 14:29:00 -05:00
parent 071a6ca7cc
commit a8699bf992
6 changed files with 31 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

6
agora-specs/Sample/Treasury.hs
View file

@ -20,7 +20,7 @@ module Sample.Treasury (
import Plutarch.Context (
MintingBuilder,
UTXO,
buildMinting,
buildMintingUnsafe,
credential,
input,
mint,
@ -83,7 +83,7 @@ validCtx =
. withValue (Value.singleton gatCs gatTn 1 <> minAda)
. withTxId "52b67b60260da3937510ad545c7f46f8d9915bd27e1082e76947fb309f913bd3"
]
in either error id $ buildMinting builder
in buildMintingUnsafe builder
treasuryRef :: TxOutRef
treasuryRef =
@ -124,4 +124,4 @@ trCtxGATNameNotAddress =
. withValue (Value.singleton gatCs gatTn 1 <> minAda)
. withTxId "52b67b60260da3937510ad545c7f46f8d9915bd27e1082e76947fb309f913bd3"
]
in either error id $ buildMinting builder
in buildMintingUnsafe builder