;check, payees, journal: payee directive no longer consumes trailing whitespace (#1580)

2021-06-23 14:13:24 -10:00 · 2021-06-23 14:13:24 -10:00 · 59b1e46b88
commit 59b1e46b88
parent 46d3eaf920
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@ -529,7 +529,7 @@ payeedirectivep :: JournalParser m ()
 payeedirectivep = do
  string "payee" <?> "payee directive"
  lift skipNonNewlineSpaces1
-  payee <- lift descriptionp  -- all text until ; or \n
+  payee <- lift $ T.strip <$> noncommenttext1p
  (comment, tags) <- lift transactioncommentp
  addPayeeDeclaration (payee, comment, tags)
  return ()