Apply review comments (2/n) (will ultimately be squashed)

IntersectMBO · Dec 12, 2023 · a5d8ae8 · a5d8ae8
1 parent f576658
commit a5d8ae8
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -57,7 +57,7 @@ import qualified Cardano.Ledger.Shelley.API as Ledger
 import           Ouroboros.Consensus.Shelley.Node (ShelleyGenesisStaking (..))
 
 import           Control.DeepSeq (NFData, force)
-import           Control.Monad (forM, forM_, unless, void)
+import           Control.Monad (forM, forM_, unless, void, zipWithM)
 import           Control.Monad.Except (MonadError (..), runExceptT)
 import           Control.Monad.IO.Class (MonadIO (..))
 import           Control.Monad.Trans.Except (ExceptT)
@@ -258,11 +258,10 @@ runGenesisCreateTestNetDataCmd Cmd.GenesisCreateTestNetDataCmdArgs
     case stakeDelegators of
       OnDisk _ -> do
         let delegates = concat $ repeat stakeDelegatorsDirs
-            delegatesAndPools = zip delegates distribution
         -- We don't need to be attentive to laziness here, because anyway this
         -- doesn't scale really well (because we're generating legit credentials,
         -- as opposed to the Transient case).
-        forM delegatesAndPools (uncurry $ computeDelegation networkId)
+        zipWithM (computeDelegation networkId) delegates distribution
       Transient _ ->
         liftIO $ Lazy.forStateM g distribution $ flip computeInsecureDelegation networkId