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

tools: generatejournal: vary amount, make reports with fewer zeroes

Browse Source
This commit is contained in:
Simon Michael 2019-04-24 07:56:45 -07:00
parent e9d2b56fb2
commit d04a5a03f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tools/generatejournal.hs
View File

@ -40,7 +40,7 @@ showtxn txnno date acct1 acct2 =
printf "%s transaction %d\n %-40s %2d A\n %-40s %2d A\n\n" d txnno acct1 amt acct2 (-amt) printf "%s transaction %d\n %-40s %2d A\n %-40s %2d A\n\n" d txnno acct1 amt acct2 (-amt)
where where
d = show date d = show date
amt = 1::Int amt = txnno
showmarketprice :: Day -> Double -> String showmarketprice :: Day -> Double -> String
showmarketprice date rate = printf "P %s A %.2f B\n" (show date) rate showmarketprice date rate = printf "P %s A %.2f B\n" (show date) rate