;check, payees, journal: payee directive no longer consumes trailing whitespace (#1580)
This commit is contained in:
parent
46d3eaf920
commit
59b1e46b88
@ -529,7 +529,7 @@ payeedirectivep :: JournalParser m ()
|
|||||||
payeedirectivep = do
|
payeedirectivep = do
|
||||||
string "payee" <?> "payee directive"
|
string "payee" <?> "payee directive"
|
||||||
lift skipNonNewlineSpaces1
|
lift skipNonNewlineSpaces1
|
||||||
payee <- lift descriptionp -- all text until ; or \n
|
payee <- lift $ T.strip <$> noncommenttext1p
|
||||||
(comment, tags) <- lift transactioncommentp
|
(comment, tags) <- lift transactioncommentp
|
||||||
addPayeeDeclaration (payee, comment, tags)
|
addPayeeDeclaration (payee, comment, tags)
|
||||||
return ()
|
return ()
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user