From d04a5a03f0ee2ae9621db03eca9d8eeddd72b484 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 24 Apr 2019 07:56:45 -0700
Subject: [PATCH] tools: generatejournal: vary amount, make reports with fewer
 zeroes

---
 tools/generatejournal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/generatejournal.hs b/tools/generatejournal.hs
index 5171074a8..fc65d05bf 100755
--- a/tools/generatejournal.hs
+++ b/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