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

;dev: Query comments

Browse Source
This commit is contained in:
Simon Michael 2024-01-21 00:57:30 -10:00
parent f53f3a0194
commit 298a9c29b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -123,15 +123,15 @@ data Query =
instance Default Query where def = Any instance Default Query where def = Any
-- | Construct a payee tag -- | Construct a query for the payee: tag
payeeTag :: Maybe Text -> Either RegexError Query payeeTag :: Maybe Text -> Either RegexError Query
payeeTag = fmap (Tag (toRegexCI' "payee")) . maybe (pure Nothing) (fmap Just . toRegexCI) payeeTag = fmap (Tag (toRegexCI' "payee")) . maybe (pure Nothing) (fmap Just . toRegexCI)
-- | Construct a note tag -- | Construct a query for the note: tag
noteTag :: Maybe Text -> Either RegexError Query noteTag :: Maybe Text -> Either RegexError Query
noteTag = fmap (Tag (toRegexCI' "note")) . maybe (pure Nothing) (fmap Just . toRegexCI) noteTag = fmap (Tag (toRegexCI' "note")) . maybe (pure Nothing) (fmap Just . toRegexCI)
-- | Construct a generated-transaction tag -- | Construct a query for the generated-transaction: tag
generatedTransactionTag :: Query generatedTransactionTag :: Query
generatedTransactionTag = Tag (toRegexCI' "generated-transaction") Nothing generatedTransactionTag = Tag (toRegexCI' "generated-transaction") Nothing