slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Michael 2023-11-23 08:31:05 -10:00
parent 4b13af0634
commit b4a6212453
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Read/Common.hs
View File

@ -959,6 +959,7 @@ lotcostp =
label "ledger-style lot cost" $ do label "ledger-style lot cost" $ do
char '{' char '{'
doublebrace <- option False $ char '{' >> pure True doublebrace <- option False $ char '{' >> pure True
lift skipNonNewlineSpaces
_fixed <- fmap isJust $ optional $ lift skipNonNewlineSpaces >> char '=' _fixed <- fmap isJust $ optional $ lift skipNonNewlineSpaces >> char '='
lift skipNonNewlineSpaces lift skipNonNewlineSpaces
_a <- simpleamountp False _a <- simpleamountp False