store proposal timing conf in the governor datum

agora/Agora/Governor.hs

@@ -37,6 +37,7 @@ import Agora.Proposal (
   ProposalId (ProposalId),
   ProposalThresholds,
  )
+import Agora.Proposal.Time (PProposalTimingConfig, ProposalTimingConfig)
 import Agora.SafeMoney (GTTag)
 import Agora.Utils (tclet)
 
@@ -66,6 +67,9 @@ data GovernorDatum = GovernorDatum
   -- ^ Gets copied over upon creation of a 'Agora.Proposal.ProposalDatum'.
   , nextProposalId :: ProposalId
   -- ^ What tag the next proposal will get upon creating.
+  , proposalTimings :: ProposalTimingConfig
+  -- ^ The timing configuration for proposals.
+  --   Will get copied over upon the creation of proposals.
   }
   deriving stock (Show, GHC.Generic)
 
@@ -118,6 +122,7 @@ newtype PGovernorDatum (s :: S) = PGovernorDatum
       ( PDataRecord
           '[ "proposalThresholds" ':= PProposalThresholds
            , "nextProposalId" ':= PProposalId
+           , "proposalTimings" ':= PProposalTimingConfig
            ]
       )
   }

agora/Agora/Governor/Scripts.hs

@@ -126,7 +126,7 @@ import Plutarch.TryFrom (ptryFrom)
 
 --------------------------------------------------------------------------------
 
-import Agora.Proposal.Time (ProposalStartingTime (..), ProposalTimingConfig (..))
+import Agora.Proposal.Time (ProposalStartingTime (..))
 import Plutus.V1.Ledger.Api (
   CurrencySymbol (..),
   MintingPolicy,
@@ -300,7 +300,7 @@ governorValidator gov =
     let ownAddress = pfromData $ ownInputF.address
 
     (pfromData -> (oldGovernorDatum :: Term _ PGovernorDatum), _) <- tcont $ ptryFrom datum'
-    oldGovernorDatumF <- tcont $ pletFields @'["proposalThresholds", "nextProposalId"] oldGovernorDatum
+    oldGovernorDatumF <- tcont $ pletFields @'["proposalThresholds", "nextProposalId", "proposalTimings"] oldGovernorDatum
 
     -- Check that GST will be returned to the governor.
     let ownInputGSTAmount = psymbolValueOf # pgstSymbol # ownInputF.value
@@ -337,6 +337,7 @@ governorValidator gov =
                   PGovernorDatum
                   ( #proposalThresholds .= oldGovernorDatumF.proposalThresholds
                       .& #nextProposalId .= pdata expectedNextProposalId
+                      .& #proposalTimings .= oldGovernorDatumF.proposalTimings
                   )
           tcassert "Unexpected governor state datum" $
             newGovernorDatum #== expectedNewDatum
@@ -578,7 +579,7 @@ governorValidator gov =
                       .& #thresholds .= proposalInputDatumF.thresholds
                       .& #votes .= proposalInputDatumF.votes
                       -- FIXME: copy from the governor datum
-                      .& #timingConfig .= pdata (pconstant tmpTimingConfig)
+                      .& #timingConfig .= oldGovernorDatumF.proposalTimings
                       -- FIXME: calculate from 'txInfoValidRange'
                       .& #startingTime .= pdata (pconstant tmpProposalStartingTime)
                   )
@@ -732,16 +733,6 @@ governorValidator gov =
       let sym = governorSTSymbolFromGovernor gov
        in phoistAcyclic $ pconstant sym
 
-    -- TODO: remove this. This is temperary.
-    tmpTimingConfig :: ProposalTimingConfig
-    tmpTimingConfig =
-      ProposalTimingConfig
-        { draftTime = 50
-        , votingTime = 1000
-        , lockingTime = 2000
-        , executingTime = 3000
-        }
-
     -- TODO: remove this.
     tmpProposalStartingTime :: ProposalStartingTime
     tmpProposalStartingTime = ProposalStartingTime 0