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

2010-02-03 22:49:02 +00:00 · 2010-02-03 22:49:02 +00:00 · 8274de5e92
commit 8274de5e92
parent acecc28ce5
1 changed files with 1 additions and 1 deletions
--- a/Commands/Add.hs
+++ b/Commands/Add.hs
@ -57,7 +57,7 @@ getTransaction l args = do
        if NoNewAccts `elem` opts
            then isJust $ Foldable.find (== x) ant
            else True
-        where (ant,_,_,_) = groupTransactions . rawLedgerTransactions . rawledger $ l
+        where (ant,_,_,_) = groupPostings . journalPostings . journal $ l
      getpostingsandvalidate = do
        ps <- getPostings accept bestmatchpostings []
        let t = nulltransaction{tdate=date