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

resolve conflicts (Add: --no-new-accounts: don't allow to create new accounts)

Browse Source
This commit is contained in:
Simon Michael 2010-02-03 22:49:02 +00:00
parent acecc28ce5
commit 8274de5e92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Add.hs
View File

@ -57,7 +57,7 @@ getTransaction l args = do
if NoNewAccts `elem` opts if NoNewAccts `elem` opts
then isJust $ Foldable.find (== x) ant then isJust $ Foldable.find (== x) ant
else True else True
where (ant,_,_,_) = groupTransactions . rawLedgerTransactions . rawledger $ l where (ant,_,_,_) = groupPostings . journalPostings . journal $ l
getpostingsandvalidate = do getpostingsandvalidate = do
ps <- getPostings accept bestmatchpostings [] ps <- getPostings accept bestmatchpostings []
let t = nulltransaction{tdate=date let t = nulltransaction{tdate=date