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}

agora-specs/Spec/Stake.hs

@@ -15,6 +15,7 @@ import Agora.Stake (
   StakeRedeemer (DepositWithdraw),
  )
 import Agora.Stake.Scripts (stakePolicy, stakeValidator)
+import Data.Maybe (Maybe (..))
 import Sample.Stake (
   DepositWithdrawExample (
     DepositWithdrawExample,
@@ -67,19 +68,19 @@ specs =
       [ validatorSucceedsWith
           "stakeDepositWithdraw deposit"
           (stakeValidator Stake.stake)
-          (toDatum $ StakeDatum 100_000 signer [])
+          (toDatum $ StakeDatum 100_000 signer Nothing [])
           (toDatum $ DepositWithdraw 100_000)
           (Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = 100_000})
       , validatorSucceedsWith
           "stakeDepositWithdraw withdraw"
           (stakeValidator Stake.stake)
-          (toDatum $ StakeDatum 100_000 signer [])
+          (toDatum $ StakeDatum 100_000 signer Nothing [])
           (toDatum $ DepositWithdraw $ negate 100_000)
           (Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = negate 100_000})
       , validatorFailsWith
           "stakeDepositWithdraw negative GT"
           (stakeValidator Stake.stake)
-          (toDatum $ StakeDatum 100_000 signer [])
+          (toDatum $ StakeDatum 100_000 signer Nothing [])
           (toDatum $ DepositWithdraw 1_000_000)
           (Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = negate 1_000_000})
       ]