Rename smart constructor to initialDistribution

tweag · Feb 6, 2023 · 492ab94 · 492ab94
1 parent 317b006
commit 492ab94
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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