imp:ledger-compat: accept lot costs with spaces after {, like Ledger

2023-11-23 08:31:05 -10:00 · 2023-11-23 08:31:05 -10:00 · b4a6212453
commit b4a6212453
parent 4b13af0634
1 changed files with 1 additions and 0 deletions
--- 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