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

Author: MarcFontaine

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
         }