Fix SubmitProposal examples

Plutonomicon · Aug 8, 2024 · 0fdc13c · 0fdc13c
1 parent 19df4b6
commit 0fdc13c
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 12 deletions.
diff --git a/examples/Gov/SubmitVote.purs b/examples/Gov/SubmitVote.purs
@@ -71,12 +71,15 @@ submitProposal = do
       getRewardAddresses
 
   tx <- submitTxFromBuildPlan Map.empty mempty
-    [ SubmitProposal $ VotingProposal
-        { govAction: GovAction.Info
-        , anchor: dummyAnchor
-        , deposit: unwrap govActionDeposit
-        , returnAddr: rewardAddr
-        }
+    [ SubmitProposal
+        ( VotingProposal
+            { govAction: GovAction.Info
+            , anchor: dummyAnchor
+            , deposit: unwrap govActionDeposit
+            , returnAddr: rewardAddr
+            }
+        )
+        Nothing
     ]
   let txHash = Transaction.hash tx
   awaitTxConfirmed txHash

diff --git a/examples/Gov/SubmitVoteScript.purs b/examples/Gov/SubmitVoteScript.purs
@@ -76,12 +76,15 @@ submitProposal = do
       getRewardAddresses
 
   tx <- submitTxFromBuildPlan Map.empty mempty
-    [ SubmitProposal $ VotingProposal
-        { govAction: GovAction.Info
-        , anchor: dummyAnchor
-        , deposit: unwrap govActionDeposit
-        , returnAddr: rewardAddr
-        }
+    [ SubmitProposal
+        ( VotingProposal
+            { govAction: GovAction.Info
+            , anchor: dummyAnchor
+            , deposit: unwrap govActionDeposit
+            , returnAddr: rewardAddr
+            }
+        )
+        Nothing
     ]
   let txHash = Transaction.hash tx
   awaitTxConfirmed txHash