From efd18b47d8cf2ba64df92aa25ec9fcdddf1ceb08 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= <smelc@users.noreply.github.com>
Date: Thu, 30 Nov 2023 10:57:21 +0100
Subject: [PATCH] Update
 cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs

Co-authored-by: carlhammann <102371507+carlhammann@users.noreply.github.com>
---
 cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
index 30fa39f979..40b8bc0baf 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -529,7 +529,7 @@ updateCreateStakedOutputTemplate
     distribute :: Integer -> Int -> [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
     distribute funds nAddrs addrs = zip addrs (fmap Lovelace (coinPerAddr + remainder:repeat coinPerAddr))
       where coinPerAddr, remainder :: Integer
-            (,) coinPerAddr remainder = funds `divMod` fromIntegral nAddrs
+            (coinPerAddr, remainder) = funds `divMod` fromIntegral nAddrs
 
     mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
     mkStuffedUtxo xs = (, Lovelace minUtxoVal) <$> xs