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

queries: treat amt:>0 like amt:>+0

Browse Source 
Similar to the special case for amt:<0, for convenience.
To test that the absolute quantity is greater than 0, ie that the
quantity is non-zero, use not:amt:0.
This commit is contained in:
Simon Michael 2014-04-27 23:59:11 -07:00
parent aee7b3512d
commit 084bf8fea8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -293,7 +293,8 @@ parseAmountQueryTerm s' =
'-':s -> (Eq, negate $ readDef err s) '-':s -> (Eq, negate $ readDef err s)
'<':s -> let n = readDef err s in case n of 0 -> (Lt, 0) '<':s -> let n = readDef err s in case n of 0 -> (Lt, 0)
_ -> (AbsLt, n) _ -> (AbsLt, n)
'>':s -> (AbsGt, readDef err s) '>':s -> let n = readDef err s in case n of 0 -> (Gt, 0)
_ -> (AbsGt, n)
'=':s -> (AbsEq, readDef err s) '=':s -> (AbsEq, readDef err s)
s -> (AbsEq, readDef err s) s -> (AbsEq, readDef err s)
where where
@ -302,7 +303,8 @@ parseAmountQueryTerm s' =
tests_parseAmountQueryTerm = [ tests_parseAmountQueryTerm = [
"parseAmountQueryTerm" ~: do "parseAmountQueryTerm" ~: do
let s `gives` r = parseAmountQueryTerm s `is` r let s `gives` r = parseAmountQueryTerm s `is` r
"<0" `gives` (Lt,0) -- special case, AbsLt 0 would be always false "<0" `gives` (Lt,0) -- special case for convenience, since AbsLt 0 would be always false
">0" `gives` (Gt,0) -- special case for convenience and consistency with above
">10000.10" `gives` (AbsGt,10000.1) ">10000.10" `gives` (AbsGt,10000.1)
"=0.23" `gives` (AbsEq,0.23) "=0.23" `gives` (AbsEq,0.23)
"0.23" `gives` (AbsEq,0.23) "0.23" `gives` (AbsEq,0.23)