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 ()