mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
lib: comment
This commit is contained in:
parent
e077aeff5f
commit
efae8f8f2a
@ -765,8 +765,7 @@ commodityStylesFromAmounts amts = M.fromList commstyles
|
||||
commstyles = [(c, canonicalStyleFrom $ map astyle as) | (c,as) <- commamts]
|
||||
|
||||
-- | Given an ordered list of amount styles, choose a canonical style.
|
||||
-- That is: the style of the first, and the
|
||||
-- maximum precision of all.
|
||||
-- That is: the style of the first, and the maximum precision of all.
|
||||
canonicalStyleFrom :: [AmountStyle] -> AmountStyle
|
||||
canonicalStyleFrom [] = amountstyle
|
||||
canonicalStyleFrom ss@(first:_) =
|
||||
|
Loading…
Reference in New Issue
Block a user