From 492ab94c6d8b2265264b647917452133069376f3 Mon Sep 17 00:00:00 2001 From: Florent C Date: Mon, 6 Feb 2023 11:37:54 +0100 Subject: [PATCH] Rename smart constructor to `initialDistribution` --- cooked-validators/src/Cooked/Wallet.hs | 4 ++-- examples/tests/AuctionSpec.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cooked-validators/src/Cooked/Wallet.hs b/cooked-validators/src/Cooked/Wallet.hs index 1956bbf6a..a20a191ba 100644 --- a/cooked-validators/src/Cooked/Wallet.hs +++ b/cooked-validators/src/Cooked/Wallet.hs @@ -157,8 +157,8 @@ distributionFromList = InitialDistribution . Map.fromList -- | Extension of the default initial distribution with additional value in -- some wallets. -initialDistribution' :: [(Wallet, [Pl.Value])] -> InitialDistribution -initialDistribution' = (def <>) . distributionFromList +initialDistribution :: [(Wallet, [Pl.Value])] -> InitialDistribution +initialDistribution = (def <>) . distributionFromList -- | Bootstraps an initial transaction resulting in a state where wallets -- posess UTxOs fitting a given 'InitialDistribution' diff --git a/examples/tests/AuctionSpec.hs b/examples/tests/AuctionSpec.hs index 09fcf6c0c..821584352 100644 --- a/examples/tests/AuctionSpec.hs +++ b/examples/tests/AuctionSpec.hs @@ -53,7 +53,7 @@ bananasIn v = Value.assetClassValueOf v bananaAssetClass -- | initial distribution s.t. everyone owns five bananas testInit :: InitialDistribution -testInit = initialDistribution' [(i, [Ada.lovelaceValueOf 2_000_000 <> banana 5]) | i <- knownWallets] +testInit = initialDistribution [(i, [Ada.lovelaceValueOf 2_000_000 <> banana 5]) | i <- knownWallets] -- * Successful single-trace runs