imp:journal: in amounts, also allow and ignore empty {} (or {{}})
This commit is contained in:
parent
eb9fa40d5b
commit
6d164b48a0
@ -1025,7 +1025,7 @@ balanceassertionp = do
|
|||||||
}
|
}
|
||||||
|
|
||||||
-- Parse a Ledger-style lot cost,
|
-- Parse a Ledger-style lot cost,
|
||||||
-- {UNITCOST} or {{TOTALCOST}} or {=FIXEDUNITCOST} or {{=FIXEDTOTALCOST}},
|
-- {UNITCOST} or {{TOTALCOST}} or {=FIXEDUNITCOST} or {{=FIXEDTOTALCOST}} or {},
|
||||||
-- and discard it.
|
-- and discard it.
|
||||||
lotcostp :: JournalParser m ()
|
lotcostp :: JournalParser m ()
|
||||||
lotcostp =
|
lotcostp =
|
||||||
@ -1036,7 +1036,7 @@ lotcostp =
|
|||||||
lift skipNonNewlineSpaces
|
lift skipNonNewlineSpaces
|
||||||
_fixed <- fmap isJust $ optional $ char '='
|
_fixed <- fmap isJust $ optional $ char '='
|
||||||
lift skipNonNewlineSpaces
|
lift skipNonNewlineSpaces
|
||||||
_a <- simpleamountp False
|
_a <- option 0 $ simpleamountp False
|
||||||
lift skipNonNewlineSpaces
|
lift skipNonNewlineSpaces
|
||||||
char '}'
|
char '}'
|
||||||
when (doublebrace) $ void $ char '}'
|
when (doublebrace) $ void $ char '}'
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user