less garbage

IntersectMBO · May 9, 2024 · 08783f2 · 08783f2
1 parent 75416a5
commit 08783f2
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/...ano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/ConstitutionalCommittee.hs b/...ano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/ConstitutionalCommittee.hs
@@ -215,9 +215,16 @@ hprop_constitutional_committee = H.integrationWorkspace "constitutional-committe
     DRep.createVotingTxBody
       execConfig epochStateView sbe work "vote-tx-body" voteFiles wallet0
 
+  -- FIXME: remove dependence of signTx on PaymentKeyPair
+  let poolNodePaymentKeyPair = PaymentKeyPair
+        { paymentSKey = poolNodeKeysColdSkey poolKeys
+        , paymentVKey = error "unused"
+        }
+      drepSKeys = map (defaultDRepKeyPair . snd) drepVotes
+      signingKeys = paymentKeyInfoPair wallet0:poolNodePaymentKeyPair:drepSKeys
   voteTxFp <- DRep.signTx
-    execConfig cEra gov "signed-vote-tx" voteTxBodyFp
-                       (paymentKeyInfoPair wallet0:[defaultDRepKeyPair n | (_, n) <- drepVotes])
+    execConfig cEra gov "signed-vote-tx" voteTxBodyFp signingKeys
+
   DRep.submitTx execConfig cEra voteTxFp
 
   _ <- waitForEpochs epochStateView (L.EpochInterval 2)