mirror of
https://github.com/simonmichael/hledger.git
synced 2024-12-28 12:54:07 +03:00
journal: ignore transaction comments in auto posting rules (#745)
Previously they were misparsed as account names.
This commit is contained in:
parent
05073e9f9d
commit
41c985b5fb
@ -469,13 +469,15 @@ commodityconversiondirectivep = do
|
||||
|
||||
--- ** transactions
|
||||
|
||||
-- TODO transactionmodifierp ? transactionrewritep ?
|
||||
modifiertransactionp :: JournalParser m ModifierTransaction
|
||||
modifiertransactionp = do
|
||||
char '=' <?> "modifier transaction"
|
||||
lift (skipMany spacenonewline)
|
||||
valueexpr <- T.pack <$> lift restofline
|
||||
querytxt <- T.pack <$> lift restofline -- TODO should not consume a same-line comment
|
||||
(_cmt, _tags) <- lift transactioncommentp -- TODO apply these to modified txns ?
|
||||
postings <- postingsp Nothing
|
||||
return $ ModifierTransaction valueexpr postings
|
||||
return $ ModifierTransaction querytxt postings
|
||||
|
||||
-- | Parse a periodic transaction
|
||||
periodictransactionp :: MonadIO m => JournalParser m PeriodicTransaction
|
||||
@ -648,7 +650,7 @@ postingsp mTransactionYear = many (postingp mTransactionYear) <?> "postings"
|
||||
|
||||
postingp :: Maybe Year -> JournalParser m Posting
|
||||
postingp mTransactionYear = do
|
||||
-- dbgparse 0 "postingp"
|
||||
-- lift $ dbgparse 0 "postingp"
|
||||
(status, account) <- try $ do
|
||||
lift (skipSome spacenonewline)
|
||||
status <- lift statusp
|
||||
|
Loading…
Reference in New Issue
Block a user