Skip to content

Commit

Permalink
Add haddock comments to the result type of `makeChangeForNonUserSpeci…
Browse files Browse the repository at this point in the history
…fiedAsset`.
  • Loading branch information
jonathanknowles committed Jun 8, 2021
1 parent 4411d0e commit 8f2e54d
Showing 1 changed file with 2 additions and 0 deletions.
Expand Up @@ -1332,6 +1332,7 @@ makeChangeForNonUserSpecifiedAsset
-> (AssetId, NonEmpty TokenQuantity)
-- ^ An asset quantity to distribute.
-> NonEmpty TokenMap
-- ^ The resultant change maps.
makeChangeForNonUserSpecifiedAsset n (asset, quantities) =
TokenMap.singleton asset <$> padCoalesce quantities n

Expand All @@ -1347,6 +1348,7 @@ makeChangeForNonUserSpecifiedAssets
-> Map AssetId (NonEmpty TokenQuantity)
-- ^ A map of asset quantities to distribute.
-> NonEmpty TokenMap
-- ^ The resultant change maps.
makeChangeForNonUserSpecifiedAssets n nonUserSpecifiedAssetQuantities =
F.foldr
(NE.zipWith (<>) . makeChangeForNonUserSpecifiedAsset n)
Expand Down

0 comments on commit 8f2e54d

Please sign in to comment.