From 298a9c29b4e2efc4a1dc6d3d1f707c3200bad434 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 21 Jan 2024 00:57:30 -1000
Subject: [PATCH] ;dev: Query comments

---
 hledger-lib/Hledger/Query.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Query.hs b/hledger-lib/Hledger/Query.hs
index 470b842ab..0c86e6523 100644
--- a/hledger-lib/Hledger/Query.hs
+++ b/hledger-lib/Hledger/Query.hs
@@ -123,15 +123,15 @@ data Query =
 
 instance Default Query where def = Any
 
--- | Construct a payee tag
+-- | Construct a query for the payee: tag
 payeeTag :: Maybe Text -> Either RegexError Query
 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 = 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 = Tag (toRegexCI' "generated-transaction") Nothing