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

switch to TermCont; fix a bunch of compilation errors; format

Browse source
This commit is contained in:
fanghr 2022-05-16 21:24:43 +08:00
parent 7f6e363c89
commit fc050527a1
4 changed files with 32 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

12
agora-sample/Sample/Effect/GovernorMutation.hs
View file

@ -31,7 +31,15 @@ import Plutus.V1.Ledger.Api (
import Plutus.V1.Ledger.Api qualified as Interval
import Plutus.V1.Ledger.Value (AssetClass, assetClass)
import Plutus.V1.Ledger.Value qualified as Value
import Sample.Shared
import Sample.Shared (
authorityTokenSymbol,
defaultProposalThresholds,
govAssetClass,
govValidatorAddress,
governor,
minAda,
signer,
)
import Test.Util (datumPair, toDatumHash)
effectValidator :: Validator
@ -112,7 +120,7 @@ validContext =
governorOutput =
TxOut
{ txOutAddress = govValidatorAddress
, txOutValue = withMinAda gst
, txOutValue = mconcat [gst, minAda]
, txOutDatumHash = Just $ toDatumHash governorOutputDatum
}