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

fix the test

Browse source
This commit is contained in:
Hongrui Fang 2023-03-24 21:01:25 +08:00
parent 897a678fc0
commit 5f43cb990f
5 changed files with 227 additions and 309 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -58,6 +58,7 @@ module Sample.Shared (
mockTrEffect,
mockTrEffectHash,
trValidator,
trScriptHash,
trCredential,
wrongEffHash,
) where
@ -276,9 +277,12 @@ gatCs = authorityTokenSymbol
trValidator :: Script
trValidator = agoraScripts ! "agora:treasuryValidator"
trScriptHash :: ScriptHash
trScriptHash = scriptHash trValidator
-- | `ScriptCredential` used for the dummy treasury validator.
trCredential :: Credential
trCredential = ScriptCredential $ scriptHash trValidator
trCredential = ScriptCredential trScriptHash
-- | `TokenName` for GAT generated from address of `mockTrEffect`.
gatTn :: TokenName