Update cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs

Co-authored-by: carlhammann <[email protected]>
IntersectMBO · Nov 30, 2023 · efd18b4 · efd18b4
1 parent f9345c1
commit efd18b4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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