Sulkta-Coop/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix inline GAT datum hashing

Browse source
This commit is contained in:
Hongrui Fang 2023-02-13 15:48:44 +08:00
parent 6827855c70
commit d2ba02307a
No known key found for this signature in database
GPG key ID: F2D0D08AF77AC599
1 changed files with 2 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
agora/Agora/Governor/Scripts.hs
View file

@ -46,14 +46,7 @@ import Data.Function (on)
import Plutarch.Api.V1 (PCurrencySymbol)
import Plutarch.Api.V1.AssocMap (plookup)
import Plutarch.Api.V1.AssocMap qualified as AssocMap
import Plutarch.Api.V2 (
PMintingPolicy,
PScriptHash,
PScriptPurpose (PMinting, PSpending),
PTxOut,
PTxOutRef,
PValidator,
)
import Plutarch.Api.V2 (PDatum, PMintingPolicy, PScriptHash, PScriptPurpose (PMinting, PSpending), PTxOut, PTxOutRef, PValidator)
import Plutarch.Api.V2.Tx (POutputDatum (..))
import Plutarch.Extra.AssetClass (PAssetClassData, passetClass)
import Plutarch.Extra.Field (pletAll, pletAllC)
@ -542,7 +535,7 @@ governorValidator =
#== 1
let outputDatumHash = pmatch outputF.datum $ \case
POutputDatum d -> phashDatum # d
POutputDatum d -> phashDatum #$ pfield @"outputDatum" @PDatum # d
POutputDatumHash h -> pfield @"datumHash" # h
_ -> ptraceError "expcted effect datum, got nothing"