slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't let default commodity limit the max precision (fixes #169)

Browse Source
This commit is contained in:
Simon Michael 2014-03-26 17:25:59 -07:00
parent 882a9dbf1c
commit da0ce23144
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -677,7 +677,7 @@ nosymbolamount = do
p <- priceamount p <- priceamount
defcs <- getCommodityAndStyle defcs <- getCommodityAndStyle
let (c,s) = case defcs of let (c,s) = case defcs of
Just (c',s') -> (c',s') Just (defc,defs) -> (defc, defs{asprecision=max (asprecision defs) prec})
Nothing -> ("", amountstyle{asdecimalpoint=dec, asprecision=prec, asseparator=sep, asseparatorpositions=seppos}) Nothing -> ("", amountstyle{asdecimalpoint=dec, asprecision=prec, asseparator=sep, asseparatorpositions=seppos})
return $ Amount c q p s return $ Amount c q p s
<?> "no-symbol amount" <?> "no-symbol amount"