mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
small cleanup
This commit is contained in:
parent
6073b56b9e
commit
56a37aabcf
@ -508,7 +508,7 @@ postingp = do
|
||||
account <- modifiedaccountname
|
||||
let (ptype, account') = (accountNamePostingType account, unbracket account)
|
||||
amount <- spaceandamountormissing
|
||||
mBalanceAssertion <- balanceassertion
|
||||
massertion <- balanceassertion
|
||||
_ <- fixedlotprice
|
||||
many spacenonewline
|
||||
ctx <- getState
|
||||
@ -517,7 +517,7 @@ postingp = do
|
||||
-- oh boy
|
||||
d <- maybe (return Nothing) (either (fail.show) (return.Just)) (parseWithCtx ctx date `fmap` dateValueFromTags tags)
|
||||
d2 <- maybe (return Nothing) (either (fail.show) (return.Just)) (parseWithCtx ctx date `fmap` date2ValueFromTags tags)
|
||||
return posting{pdate=d, pdate2=d2, pstatus=status, paccount=account', pamount=amount, pcomment=comment, ptype=ptype, ptags=tags, pbalanceassertion=mBalanceAssertion}
|
||||
return posting{pdate=d, pdate2=d2, pstatus=status, paccount=account', pamount=amount, pcomment=comment, ptype=ptype, ptags=tags, pbalanceassertion=massertion}
|
||||
|
||||
#ifdef TESTS
|
||||
test_postingp = do
|
||||
|
Loading…
Reference in New Issue
Block a user