simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-18 17:57:11 +03:00
Code Issues 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)
where
d = show date
amt = 1::Int
amt = txnno
showmarketprice :: Day -> Double -> String
showmarketprice date rate = printf "P %s A %.2f B\n" (show date) rate