From 59b1e46b88d7a6c180af60b7633d62f01fb1bcdc Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 23 Jun 2021 14:13:24 -1000 Subject: [PATCH] ;check, payees, journal: payee directive no longer consumes trailing whitespace (#1580) --- hledger-lib/Hledger/Read/JournalReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 6ae1e205c..41ea90232 100644 --- 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 ()