Fix stake addres for test cluster setup

cardano-foundation · Apr 20, 2021 · 61274ac · 61274ac
1 parent 72ec7ec
commit 61274ac
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Launch/Cluster.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Launch/Cluster.hs
@@ -1366,11 +1366,18 @@ moveInstantaneousRewardsTo tr conn dir targets = do
     mkMIRCertificate (pub, stakeVK, Coin reward) = do
         let mirCert = dir </> pub <> ".mir"
         stakeCert <- issueStakeCert tr dir pub stakeVK
+        stakeAddr <- cliLine tr
+            [ "stake-address"
+            , "build"
+            , "--mainnet"
+            , "--stake-verification-key-file" , stakeVK
+            ]
+
         cli tr
             [ "governance", "create-mir-certificate"
             , "--reserves"
             , "--reward", show reward
-            , "--stake-verification-key-file", stakeVK
+            , "--stake-address", stakeAddr
             , "--out-file", mirCert
             ]
         pure [stakeCert, mirCert]