From ea5050963fe4f8e0189edecd66152c1c9c8dafb3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 23 May 2019 22:34:31 -0700
Subject: [PATCH] web: try to fix RegisterR warning

---
 hledger-lib/Hledger/Reports/AccountTransactionsReport.hs | 2 --
 hledger-lib/Hledger/Reports/TransactionsReport.hs        | 2 ++
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Reports/AccountTransactionsReport.hs b/hledger-lib/Hledger/Reports/AccountTransactionsReport.hs
index 8040ac391..2d0b35105 100644
--- a/hledger-lib/Hledger/Reports/AccountTransactionsReport.hs
+++ b/hledger-lib/Hledger/Reports/AccountTransactionsReport.hs
@@ -11,8 +11,6 @@ module Hledger.Reports.AccountTransactionsReport (
   accountTransactionsReport,
   accountTransactionsReportItems,
   transactionRegisterDate,
-  totallabel,
-  balancelabel,
   tests_AccountTransactionsReport
 )
 where
diff --git a/hledger-lib/Hledger/Reports/TransactionsReport.hs b/hledger-lib/Hledger/Reports/TransactionsReport.hs
index 2e4da4d3e..d31eab688 100644
--- a/hledger-lib/Hledger/Reports/TransactionsReport.hs
+++ b/hledger-lib/Hledger/Reports/TransactionsReport.hs
@@ -58,6 +58,8 @@ triBalance (_,_,_,_,_,a) = a
 triCommodityAmount c = filterMixedAmountByCommodity c  . triAmount
 triCommodityBalance c = filterMixedAmountByCommodity c  . triBalance
 
+totallabel   = "Period Total"
+
 -- | Select transactions from the whole journal. This is similar to a
 -- "postingsReport" except with transaction-based report items which
 -- are ordered most recent first. XXX Or an EntriesReport - use that instead ?