From d5ab811796eefebad81462e0ffacea57551d094c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 14 Jun 2011 19:21:22 +0000 Subject: [PATCH] web: inacctsubs: -> inaccts: --- hledger-lib/Hledger/Data/Matching.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Data/Matching.hs b/hledger-lib/Hledger/Data/Matching.hs index f1206c2ce..1856a71a9 100644 --- a/hledger-lib/Hledger/Data/Matching.hs +++ b/hledger-lib/Hledger/Data/Matching.hs @@ -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