From d4a68af78d80d191f4d56e4d2fcb08ae034e0ba5 Mon Sep 17 00:00:00 2001 From: Florent C Date: Mon, 6 Feb 2023 11:40:23 +0100 Subject: [PATCH] Rename InitialDistribution field to fit convention --- cooked-validators/src/Cooked/Wallet.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cooked-validators/src/Cooked/Wallet.hs b/cooked-validators/src/Cooked/Wallet.hs index 81b95f244..b2f9343de 100644 --- a/cooked-validators/src/Cooked/Wallet.hs +++ b/cooked-validators/src/Cooked/Wallet.hs @@ -137,7 +137,7 @@ txAddSignature w = Pl.addSignature' (walletSK w) -- and permanent values. (Remember: 1 Ada = 1000000 Lovelace) -- -- Check the corresponding @Default InitialDistribution@ instance for the default value. -newtype InitialDistribution = InitialDistribution {distribution :: Map Wallet [Pl.Value]} +newtype InitialDistribution = InitialDistribution {unInitialDistribution :: Map Wallet [Pl.Value]} deriving (Eq, Show) instance Semigroup InitialDistribution where @@ -172,7 +172,7 @@ initialTxFor initDist = -- initUtxosFor w v = Pl.TxOut $ Api.TxOut addr val Api.TxOutDatumNone Api.ReferenceScriptNone initUtxosFor w v = toPlTxOut @() (walletAddress w) v Nothing - initDist' = Map.toList $ distribution initDist + initDist' = Map.toList $ unInitialDistribution initDist toPlTxOut :: Pl.ToData a => Pl.Address -> Pl.Value -> Maybe a -> Pl.TxOut toPlTxOut addr value datum = toPlTxOut' addr value datum'