store timing config in the proposal datum

.... and mock the value upon creation for now

agora/Agora/Proposal/Scripts.hs

@@ -151,6 +151,7 @@ proposalValidator proposal =
             , "cosigners"
             , "thresholds"
             , "votes"
+            , "timingConfig"
             ]
           proposalDatum
 
@@ -253,6 +254,7 @@ proposalValidator proposal =
                       .& #cosigners .= proposalF.cosigners
                       .& #thresholds .= proposalF.thresholds
                       .& #votes .= pdata expectedNewVotes
+                      .& #timingConfig .= proposalF.timingConfig
                   )
 
           tcassert "Invalid output proposal" $ proposalOut #== expectedProposalOut
@@ -342,6 +344,7 @@ proposalValidator proposal =
                                   .& #cosigners .= pdata updatedSigs
                                   .& #thresholds .= proposalF.thresholds
                                   .& #votes .= proposalF.votes
+                                  .& #timingConfig .= proposalF.timingConfig
                               )
                           )
                  in foldr1

agora/Agora/Proposal/Time.hs

@@ -39,7 +39,12 @@ import Plutarch.Api.V1 (
   PPOSIXTimeRange,
   PUpperBound (PUpperBound),
  )
-import Plutarch.DataRepr (PDataFields, PIsDataReprInstances (..))
+import Plutarch.DataRepr (DerivePConstantViaData (..), PDataFields, PIsDataReprInstances (..))
+import Plutarch.Lift (
+  DerivePConstantViaNewtype (..),
+  PConstantDecl,
+  PUnsafeLiftDecl (..),
+ )
 import Plutarch.Numeric (AdditiveSemigroup ((+)))
 import Plutarch.Unsafe (punsafeCoerce)
 import Plutus.V1.Ledger.Time (POSIXTime)
@@ -122,10 +127,24 @@ newtype PProposalTime (s :: S)
     (PlutusType, PIsData, PDataFields)
     via (PIsDataReprInstances PProposalTime)
 
+instance PUnsafeLiftDecl PProposalTime where
+  type PLifted PProposalTime = ProposalTime
+deriving via
+  (DerivePConstantViaData ProposalTime PProposalTime)
+  instance
+    (PConstantDecl ProposalTime)
+
 -- | Plutarch-level version of 'ProposalStartingTime'.
 newtype PProposalStartingTime (s :: S) = PProposalStartingTime (Term s PPOSIXTime)
   deriving (PlutusType, PIsData, PEq, POrd) via (DerivePNewtype PProposalStartingTime PPOSIXTime)
 
+instance PUnsafeLiftDecl PProposalStartingTime where
+  type PLifted PProposalStartingTime = ProposalStartingTime
+deriving via
+  (DerivePConstantViaNewtype ProposalStartingTime PProposalStartingTime PPOSIXTime)
+  instance
+    (PConstantDecl ProposalStartingTime)
+
 -- | Plutarch-level version of 'ProposalTimingConfig'.
 newtype PProposalTimingConfig (s :: S) = PProposalTimingConfig
   { getProposalTimingConfig ::
@@ -146,6 +165,13 @@ newtype PProposalTimingConfig (s :: S) = PProposalTimingConfig
     (PlutusType, PIsData, PDataFields)
     via (PIsDataReprInstances PProposalTimingConfig)
 
+instance PUnsafeLiftDecl PProposalTimingConfig where
+  type PLifted PProposalTimingConfig = ProposalTimingConfig
+deriving via
+  (DerivePConstantViaData ProposalTimingConfig PProposalTimingConfig)
+  instance
+    (PConstantDecl ProposalTimingConfig)
+
 --------------------------------------------------------------------------------
 
 -- FIXME: Orphan instance, move this to plutarch-extra.