slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

lib:Hledger.Query: queryIsAmtOrSym

Browse Source
This commit is contained in:
Simon Michael 2025-06-03 17:01:37 -10:00
parent 5bbf31096d
commit bdd2018663
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Query.hs
View File

@ -44,6 +44,7 @@ module Hledger.Query (
queryIsReal, queryIsReal,
queryIsAmt, queryIsAmt,
queryIsSym, queryIsSym,
queryIsAmtOrSym,
queryIsStartDateOnly, queryIsStartDateOnly,
queryIsTransactionRelated, queryIsTransactionRelated,
-- * accessors -- * accessors
@ -685,6 +686,9 @@ queryIsSym :: Query -> Bool
queryIsSym (Sym _) = True queryIsSym (Sym _) = True
queryIsSym _ = False queryIsSym _ = False
queryIsAmtOrSym :: Query -> Bool
queryIsAmtOrSym = liftA2 (||) queryIsAmt queryIsSym
-- | Does this query specify a start date and nothing else (that would -- | Does this query specify a start date and nothing else (that would
-- filter postings prior to the date) ? -- filter postings prior to the date) ?
-- When the flag is true, look for a starting secondary date instead. -- When the flag is true, look for a starting secondary date instead.