store starting time of the proposal in its datum

... hardcoded to 0 upon creation for now
2022-05-18 21:01:14 +08:00 · 2022-05-18 21:01:14 +08:00 · fc48709c07
commit fc48709c07
parent d44fe083da
7 changed files with 26 additions and 2 deletions
--- a/agora-sample/Sample/Governor.hs
+++ b/agora-sample/Sample/Governor.hs
@ -80,6 +80,7 @@ import Sample.Shared (
  stake,
  stakeAddress,
  stakeAssetClass,
+  tmpProposalStartingTime,
 )
 import Test.Util (datumPair, toDatumHash)

@ -236,6 +237,7 @@ createProposal =
                , thresholds = defaultProposalThresholds
                , votes = emptyVotesFor effects
                , timingConfig = proposalTimingConfig
+                , startingTime = tmpProposalStartingTime
                }
          )
      proposalOutput :: TxOut
@ -411,6 +413,7 @@ mintGATs =
          , thresholds = defaultProposalThresholds
          , votes = proposalVotes
          , timingConfig = proposalTimingConfig
+          , startingTime = tmpProposalStartingTime
          }
      proposalInputDatum :: Datum
      proposalInputDatum = Datum $ toBuiltinData proposalInputDatum'