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