allow spending more than one stakes in one tx

2022-09-23 14:41:58 +08:00 · 2022-09-23 14:41:58 +08:00 · dd05ab45ca
commit dd05ab45ca
parent b876774921
6 changed files with 397 additions and 325 deletions
--- a/agora-specs/Sample/Stake.hs
+++ b/agora-specs/Sample/Stake.hs
@ -138,7 +138,6 @@ stakeDepositWithdraw config =
        mconcat
          [ txId "0b2086cbf8b6900f8cb65e012de4516cb66b5cb08a9aaba12a8b88be"
          , signedWith signer
-          , mint st
          , input $
              mconcat
                [ script stakeValidatorHash
@ -147,7 +146,7 @@ stakeDepositWithdraw config =
                        st
                          <> Value.assetClassValue (untag governor.gtClassRef) (fromDiscrete stakeBefore.stakedAmount)
                    )
-                , withDatum stakeAfter
+                , withDatum stakeBefore
                , withRef stakeRef
                ]
          , output $