From 4b68675ce500faa2e3830e5fb9a39ce7269d7c4b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 7 Jun 2016 09:20:20 -0700
Subject: [PATCH] ui: txn: show current query affecting txn list

---
 hledger-ui/Hledger/UI/TransactionScreen.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hledger-ui/Hledger/UI/TransactionScreen.hs b/hledger-ui/Hledger/UI/TransactionScreen.hs
index 0756d3bba..cd1a716af 100644
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@@ -64,6 +64,7 @@ drawTransactionScreen AppState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=ropts}}
       <+> withAttr ("border" <> "bold") (str $ show i)
       <+> str (" of "++show (length nts))
       <+> togglefilters
+      <+> borderQueryStr (query_ ropts)
       <+> str (" in "++T.unpack acct++")")
     togglefilters =
       case concat [