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

Make filter links exact

Browse Source
This commit is contained in:
Saku Laesvuori 2026-01-22 21:55:36 +02:00
parent c6402d918a
commit 0af1204dd5
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-web/Hledger/Web/Handler/JournalR.hs
View File

@ -46,9 +46,9 @@ getJournalR = do
| c `elem` (".[$^()|*+?{\\" :: [Char]) = ['\\', c]
| otherwise = [c]
-- XXX:is there no way to escape quotes in queries
addTagQuery name value = (JournalR, [("q", qparam <> " \"tag:" <> escapeRegex name <> (if T.null value then "" else "=" <> escapeRegex value) <> "\"")])
addCodeQuery code = (JournalR, [("q", qparam <> " \"code:" <> escapeRegex code <> "\"")])
addPayeeQuery code = (JournalR, [("q", qparam <> " \"payee:" <> escapeRegex code <> "\"")])
addTagQuery name value = (JournalR, [("q", qparam <> " \"tag:^" <> escapeRegex name <> "$" <> (if T.null value then "" else "=^" <> escapeRegex value <> "$") <> "\"")])
addCodeQuery code = (JournalR, [("q", qparam <> " \"code:^" <> escapeRegex code <> "$\"")])
addPayeeQuery code = (JournalR, [("q", qparam <> " \"payee:^" <> escapeRegex code <> "$\"")])
defaultLayout $ do
setTitle "päiväkirja - hledger-web"