From b4a6212453fc2041f3b0f427483fd11fac9f3015 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 23 Nov 2023 08:31:05 -1000 Subject: [PATCH] imp:ledger-compat: accept lot costs with spaces after {, like Ledger --- hledger-lib/Hledger/Read/Common.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs index e1f46f8ad..dc645c5f3 100644 --- a/hledger-lib/Hledger/Read/Common.hs +++ b/hledger-lib/Hledger/Read/Common.hs @@ -959,6 +959,7 @@ lotcostp = label "ledger-style lot cost" $ do char '{' doublebrace <- option False $ char '{' >> pure True + lift skipNonNewlineSpaces _fixed <- fmap isJust $ optional $ lift skipNonNewlineSpaces >> char '=' lift skipNonNewlineSpaces _a <- simpleamountp False