Skip to content
Permalink
Browse files

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

  • Loading branch information...
simonmichael committed Apr 24, 2019
1 parent e9d2b56 commit d04a5a03f0ee2ae9621db03eca9d8eeddd72b484
Showing with 1 addition and 1 deletion.
  1. +1 −1 tools/generatejournal.hs
@@ -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

0 comments on commit d04a5a0

Please sign in to comment.
You can’t perform that action at this time.