fix tests

2022-09-06 21:00:12 +08:00 · 2022-09-06 21:00:12 +08:00 · 3e7916ba58
commit 3e7916ba58
parent f6b36abfc6
12 changed files with 554 additions and 804 deletions
--- a/agora-specs/Sample/Stake/SetDelegate.hs
+++ b/agora-specs/Sample/Stake/SetDelegate.hs
@ -48,6 +48,7 @@ import PlutusLedgerApi.V2 (
 )
 import Sample.Shared (
  agoraScripts,
+  fromDiscrete,
  governor,
  minAda,
  signer,
@ -123,7 +124,7 @@ setDelegate ps = buildSpending' builder
          [ st
          , Value.assetClassValue
              (untag governor.gtClassRef)
-              (untag stakeInput.stakedAmount)
+              (fromDiscrete stakeInput.stakedAmount)
          , minAda
          ]