Use value passed with '--gen-utxo-keys' in 'cardano-cli genesis creat…

…e-cardano'
IntersectMBO · Jan 9, 2023 · dee2a98 · dee2a98
1 parent f8cf478
commit dee2a98
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Genesis.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Genesis.hs
@@ -501,7 +501,7 @@ runGenesisCreateCardano :: GenesisDir
                  -> Maybe FilePath
                  -> ExceptT ShelleyGenesisCmdError IO ()
 runGenesisCreateCardano (GenesisDir rootdir)
-                 genNumGenesisKeys _genNumUTxOKeys
+                 genNumGenesisKeys genNumUTxOKeys
                  mStart mAmount mSecurity slotLength mSlotCoeff
                  network byronGenesisT shelleyGenesisT alonzoGenesisT mNodeCfg = do
   start <- maybe (SystemStart <$> getCurrentTimePlus30) pure mStart
@@ -636,7 +636,7 @@ runGenesisCreateCardano (GenesisDir rootdir)
                       (toByronRequiresNetworkMagic network)
     byronBalance = TestnetBalanceOptions
         { tboRichmen = genNumGenesisKeys
-        , tboPoors = 1
+        , tboPoors = genNumUTxOKeys
         , tboTotalBalance = fromMaybe zeroLovelace $ toByronLovelace (fromMaybe 0 mAmount)
         , tboRichmenShare = 0
         }