allow delegating stake for voting

agora-specs/Sample/Proposal/Advance.hs

@@ -352,6 +352,7 @@ mkStakeInputDatums ps =
         StakeDatum
           { stakedAmount = Tagged ps.perStakeGTs
           , owner = ""
+          , delegatedTo = Nothing
           , lockedBy = []
           }
    in (\owner -> template {owner = owner})

agora-specs/Sample/Proposal/Cosign.hs

@@ -130,7 +130,7 @@ mkProposalOutputDatum ps =
 
 -- | Create all the input stakes given the parameters.
 mkStakeInputDatums :: Parameters -> [StakeDatum]
-mkStakeInputDatums = fmap (\pk -> StakeDatum perStakedGTs pk []) . newCosigners
+mkStakeInputDatums = fmap (\pk -> StakeDatum perStakedGTs pk Nothing []) . newCosigners
 
 -- | Create a 'TxInfo' that tries to cosign a proposal with new cosigners.
 cosign :: forall b. CombinableBuilder b => Parameters -> b

agora-specs/Sample/Proposal/Create.hs

@@ -185,6 +185,7 @@ mkStakeInputDatum ps =
    in StakeDatum
         { stakedAmount = stakedGTs
         , owner = stakeOwner
+        , delegatedTo = Nothing
         , lockedBy = locks
         }
 

agora-specs/Sample/Proposal/UnlockStake.hs

@@ -177,6 +177,7 @@ mkStakeInputDatum ps =
   StakeDatum
     { stakedAmount = defStakedGTs
     , owner = defOwner
+    , delegatedTo = Nothing
     , lockedBy = mkInputStakeLocks ps
     }
 

agora-specs/Sample/Proposal/Vote.hs

@@ -129,6 +129,7 @@ mkStakeInputDatum params =
   StakeDatum
     { stakedAmount = Tagged params.voteCount
     , owner = stakeOwner
+    , delegatedTo = Nothing
     , lockedBy = existingLocks
     }
 

agora-specs/Sample/Stake.hs

@@ -76,7 +76,7 @@ stakeCreation :: ScriptContext
 stakeCreation =
   let st = Value.assetClassValue stakeAssetClass 1 -- Stake ST
       datum :: StakeDatum
-      datum = StakeDatum 424242424242 signer []
+      datum = StakeDatum 424242424242 signer Nothing []
 
       builder :: MintingBuilder
       builder =
@@ -96,7 +96,7 @@ stakeCreation =
 stakeCreationWrongDatum :: ScriptContext
 stakeCreationWrongDatum =
   let datum :: Datum
-      datum = Datum (toBuiltinData $ StakeDatum 4242424242424242 signer []) -- Too much GT
+      datum = Datum (toBuiltinData $ StakeDatum 4242424242424242 signer Nothing []) -- Too much GT
    in ScriptContext
         { scriptContextTxInfo = stakeCreation.scriptContextTxInfo {txInfoData = [("", datum)]}
         , scriptContextPurpose = Minting stakeSymbol
@@ -128,7 +128,7 @@ stakeDepositWithdraw :: DepositWithdrawExample -> ScriptContext
 stakeDepositWithdraw config =
   let st = Value.assetClassValue stakeAssetClass 1 -- Stake ST
       stakeBefore :: StakeDatum
-      stakeBefore = StakeDatum config.startAmount signer []
+      stakeBefore = StakeDatum config.startAmount signer Nothing []
 
       stakeAfter :: StakeDatum
       stakeAfter = stakeBefore {stakedAmount = stakeBefore.stakedAmount + config.delta}