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

when adding, the balancing amount is a more useful default

Browse Source
This commit is contained in:
Simon Michael 2009-04-16 05:45:06 +00:00
parent 468955a563
commit 522a1f4c2a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
AddCommand.hs
View File

@ -112,7 +112,8 @@ getPostings bestmatchps enteredps = do
where Just ps = bestmatchps where Just ps = bestmatchps
defaultaccount = maybe Nothing (Just . paccount) bestmatch defaultaccount = maybe Nothing (Just . paccount) bestmatch
validateaccount = Just $ \s -> not $ null s validateaccount = Just $ \s -> not $ null s
defaultamount = maybe Nothing (Just . show . pamount) bestmatch defaultamount | n==1 = maybe Nothing (Just . show . pamount) bestmatch -- previously used amount
| otherwise = Just $ show $ negate $ sum $ map pamount enteredps -- balancing amount
validateamount = Just $ \s -> validateamount = Just $ \s ->
(null s && (not $ null enteredps)) || (null s && (not $ null enteredps)) ||
(isRight $ parse (someamount>>many spacenonewline>>eof) "" s) (isRight $ parse (someamount>>many spacenonewline>>eof) "" s)