ui: txn: show current query affecting txn list

2016-06-07 09:20:20 -07:00 · 2016-06-07 09:20:20 -07:00 · 4b68675ce5
commit 4b68675ce5
parent 7a951a8dd7
1 changed files with 1 additions and 0 deletions
--- 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 [