WIP

cardano-foundation · Jul 27, 2021 · a6b2303 · a6b2303
1 parent 9f0f334
commit a6b2303
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Primitive/CoinSelection/Collateral.hs b/lib/core/src/Cardano/Wallet/Primitive/CoinSelection/Collateral.hs
@@ -88,11 +88,11 @@ selectCollateral params
         $ L.sortOn F.fold validCombinations
       where
         validCombinations :: [Map inputId Coin]
-        validCombinations = mapMaybe smallestValidCombinationForSize
+        validCombinations = mapMaybe smallestValidCombinationOfSize
             [1 .. maximumCollateralEntryCount]
 
-    smallestValidCombinationForSize :: Int -> Maybe (Map inputId Coin)
-    smallestValidCombinationForSize size = coinsAvailable
+    smallestValidCombinationOfSize :: Int -> Maybe (Map inputId Coin)
+    smallestValidCombinationOfSize size = coinsAvailable
         & Map.toList
         & (`subsequencesOfSize` size)
         & fmap (\ics -> (ics, F.foldMap snd ics))
@@ -115,7 +115,7 @@ selectCollateral params
         } = params
 
 --------------------------------------------------------------------------------
--- Utility functions
+-- Subsequences
 --------------------------------------------------------------------------------
 
 numberOfSubsequencesOfSize :: Int -> Int -> Int