Document a tradeoff

IntersectMBO · Dec 8, 2023 · a385587 · a385587
1 parent fbf9548
commit a385587
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -258,6 +258,9 @@ runGenesisCreateTestNetDataCmd Cmd.GenesisCreateTestNetDataCmdArgs
       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)
       Transient ->
         liftIO $ Lazy.forStateM g distribution $ flip computeInsecureDelegation networkId