From 667ea293cffb5dcdd04ff7cc479833c5fbdff29d Mon Sep 17 00:00:00 2001 From: Jordan Millar Date: Thu, 17 Oct 2024 15:54:26 -0400 Subject: [PATCH] Account for DReps without any delegators --- .../Cardano/CLI/EraBased/Run/Genesis/CreateTestnetData.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis/CreateTestnetData.hs index ad0f6d2b2..5ed9d33e3 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis/CreateTestnetData.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis/CreateTestnetData.hs @@ -58,6 +58,7 @@ import Control.Monad (forM, forM_, unless, void, when) import qualified Data.Aeson as Aeson import Data.Bifunctor (Bifunctor (..)) import qualified Data.ByteString.Lazy.Char8 as LBS +import qualified Data.List as List import Data.ListMap (ListMap (..)) import Data.Map.Strict (Map) import qualified Data.Map.Strict as Map @@ -356,10 +357,12 @@ runGenesisCreateTestNetDataCmd map (first verificationKeytoStakeCredential) (zip stakingKeys (case dRepKeys of [] -> []; _ -> cycle dRepKeys)) - + drepsWithNoDelegations = map (,Set.empty) $ dRepKeys List.\\ map snd delegs minDeposit = L.ucppDRepDeposit $ L.cgUpgradePParams conwayGenesis cgDelegs = fromList $ map (second (L.DelegVote . L.DRepCredential . verificationKeyToDRepCredential)) delegs - cgInitialDReps = initialDReps $ map (\(stakingCred, drep) -> (drep, Set.singleton stakingCred)) delegs + cgInitialDReps = + initialDReps $ + map (\(stakingCred, drep) -> (drep, Set.singleton stakingCred)) delegs ++ drepsWithNoDelegations initialDReps :: [(VerificationKey DRepKey, Set.Set (L.Credential L.Staking L.StandardCrypto))]