From e8fe394e6ec47a7bbcccb5d00f9e11e69d68f8bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= <clement.hurlin@tweag.io>
Date: Wed, 24 Jan 2024 15:14:35 +0100
Subject: [PATCH] create-testnet-data: avoid infinite loop when no stake
 delegators are specified

---
 cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
index 19664604d6..c6d4e99ede 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -271,6 +271,10 @@ runGenesisCreateTestNetDataCmd Cmd.GenesisCreateTestNetDataCmdArgs
   -- Distribute M delegates across N pools:
   delegations <-
     case stakeDelegators of
+      OnDisk 0 ->
+        -- Required because the most general case below loops in this case
+        -- (try @zipWith _ (concat $ repeat []) _@ in a REPL)
+        pure []
       OnDisk _ -> do
         let delegates = concat $ repeat stakeDelegatorsDirs
         -- We don't need to be attentive to laziness here, because anyway this