create-testnet-data: simplify some code (do not change behavior)

IntersectMBO · Jan 19, 2024 · b072931 · b072931
1 parent cb39a01
commit b072931
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -573,14 +573,13 @@ updateCreateStakedOutputTemplate
     -> ShelleyGenesis StandardCrypto -- ^ Template from which to build a genesis
     -> ShelleyGenesis StandardCrypto -- ^ Updated genesis
 updateCreateStakedOutputTemplate
-  (SystemStart start)
+  (SystemStart sgSystemStart)
   genDelegMap mAmountNonDeleg nUtxoAddrsNonDeleg utxoAddrsNonDeleg pools stake
   amountDeleg
   nUtxoAddrsDeleg utxoAddrsDeleg stuffedUtxoAddrs
-  template = do
-    let pparamsFromTemplate = sgProtocolParams template
-        shelleyGenesis = template
-          { sgSystemStart = start
+  template@ShelleyGenesis{ sgProtocolParams } =
+    template
+          { sgSystemStart
           , sgMaxLovelaceSupply = fromIntegral $ nonDelegCoin + delegCoin
           , sgGenDelegs = shelleyDelKeys
           , sgInitialFunds = ListMap.fromList
@@ -597,16 +596,16 @@ updateCreateStakedOutputTemplate
               { sgsPools = ListMap pools
               , sgsStake = ListMap stake
               }
-          , sgProtocolParams = pparamsFromTemplate
+          , sgProtocolParams
           }
-    shelleyGenesis
   where
     maximumLovelaceSupply :: Word64
     maximumLovelaceSupply = sgMaxLovelaceSupply template
     -- If the initial funds are equal to the maximum funds, rewards cannot be created.
     subtractForTreasury :: Integer
     subtractForTreasury = nonDelegCoin `quot` 10
     nonDelegCoin, delegCoin :: Integer
+    -- if --supply is not specified, non delegated supply comes from the template passed to this function:
     nonDelegCoin = fromIntegral (maybe maximumLovelaceSupply unLovelace mAmountNonDeleg)
     delegCoin = maybe 0 fromIntegral amountDeleg
 
@@ -617,7 +616,7 @@ updateCreateStakedOutputTemplate
 
     mkStuffedUtxo :: [AddressInEra ShelleyEra] -> [(AddressInEra ShelleyEra, Lovelace)]
     mkStuffedUtxo xs = (, Lovelace minUtxoVal) <$> xs
-      where Coin minUtxoVal = sgProtocolParams template ^. ppMinUTxOValueL
+      where Coin minUtxoVal = sgProtocolParams ^. ppMinUTxOValueL
 
     shelleyDelKeys = Map.fromList
       [ (gh, Ledger.GenDelegPair gdh h)