Shorten name of field to genChangeAddress.

This is (arguably) more direct, and still consistent with the purpose of this function, which is to generate a new change address.
cardano-foundation · Nov 16, 2023 · 467f4e0 · 467f4e0
1 parent ecdc5d0
commit 467f4e0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs
@@ -1171,15 +1171,15 @@ data ChangeAddressGen s = ChangeAddressGen
     {
     -- | Generates a new change address.
     --
-    getChangeAddressGen :: s -> (Address, s)
+    genChangeAddress :: s -> (Address, s)
 
     -- | Returns a /dummy/ change address of the maximum possible length for
     --   this generator.
     --
     -- Implementations must satisfy the following property:
     --
     -- @
-    -- ∀ s. length (fst (getChangeAddressGen s)) <=
+    -- ∀ s. length (fst (genChangeAddress s)) <=
     --      length maxLengthChangeAddress
     -- @
     --

diff --git a/lib/wallet/test/unit/Internal/Cardano/Write/Tx/BalanceSpec.hs b/lib/wallet/test/unit/Internal/Cardano/Write/Tx/BalanceSpec.hs
@@ -594,7 +594,7 @@ spec_balanceTransaction = describe "balanceTransaction" $ do
         let expectedChange = fmap Convert.toWalletAddress <$>
                 flip evalState s0
                 $ replicateM nChange
-                $ state @Identity (getChangeAddressGen dummyChangeAddrGen)
+                $ state @Identity (genChangeAddress dummyChangeAddrGen)
 
         let address :: Babbage.BabbageTxOut StandardBabbage -> W.Address
             address (Babbage.BabbageTxOut addr _ _ _) = Convert.toWallet addr
@@ -2369,7 +2369,7 @@ costModelsForTesting = either (error . show) id $ do
 
 dummyChangeAddrGen :: ChangeAddressGen DummyChangeState
 dummyChangeAddrGen = ChangeAddressGen
-    { getChangeAddressGen = \(DummyChangeState i) ->
+    { genChangeAddress = \(DummyChangeState i) ->
         (addressAtIx $ toEnum i, DummyChangeState $ succ i)
     , maxLengthChangeAddress = addressAtIx minBound
     }