simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 10:47:29 +03:00
Code Issues Projects Releases Wiki Activity

web: inacctsubs: -> inaccts:

Browse Source
This commit is contained in:
Simon Michael 2011-06-14 19:21:22 +00:00
parent f28fbb4870
commit d5ab811796
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/Matching.hs
View File

@ -97,14 +97,14 @@ parseQuery d s = (m,qopts)
-- keep synced with patterns below, excluding "not"
prefixes = map (++":") [
"inacct","subs",
"inacct","inaccts",
"desc","acct","date","edate","status","real","empty","depth"
]
defaultprefix = "acct"
-- | Parse a single query term as either a matcher or a query option.
parseMatcher :: Day -> String -> Either Matcher QueryOpt
parseMatcher _ ('i':'n':'a':'c':'c':'t':'s':'u':'b':'s':':':s) = Right $ QueryOptInAcctSubs s
parseMatcher _ ('i':'n':'a':'c':'c':'t':'s':':':s) = Right $ QueryOptInAcctSubs s
parseMatcher _ ('i':'n':'a':'c':'c':'t':':':s) = Right $ QueryOptInAcct s
parseMatcher d ('n':'o':'t':':':s) = case parseMatcher d $ quoteIfSpaced s of
Left m -> Left $ negateMatcher m