Simplify folds in {addMint,removeBurn}values{To,From}ChangeMaps.

We remove the nested function composition in favour of simple function
composition.

lib/core/src/Cardano/Wallet/Primitive/CoinSelection/MA/RoundRobin.hs

@@ -1642,11 +1642,8 @@ addMintValuesToChangeMaps
  -- ^ Change maps
  -> NonEmpty TokenMap
  -- ^ Change maps with minted values
-addMintValuesToChangeMaps mints =
- F.foldr
- (\mint -> (addMintValueToChangeMaps mint .))
- id
- (TokenMap.toFlatList mints)
+addMintValuesToChangeMaps =
+ flip (F.foldr addMintValueToChangeMaps) . TokenMap.toFlatList
 
 -- | Removes a burned asset quantity from a list of change maps.
 --
@@ -1759,11 +1756,8 @@ removeBurnValuesFromChangeMaps
  -- ^ Change maps
  -> NonEmpty TokenMap
  -- ^ Change maps with burned values removed
-removeBurnValuesFromChangeMaps burns =
- F.foldr
- (\burn -> (removeBurnValueFromChangeMaps burn .))
- id
- (TokenMap.toFlatList burns)
+removeBurnValuesFromChangeMaps =
+ flip (F.foldr removeBurnValueFromChangeMaps) . TokenMap.toFlatList
 
 --------------------------------------------------------------------------------
 -- Splitting bundles