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

autoamt -> missingamt

Browse Source
This commit is contained in:
Simon Michael 2008-10-18 20:29:42 +00:00
parent f3ba1eda0c
commit 8e412b1be3
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Ledger/Amount.hs
View File

@ -141,6 +141,6 @@ nullamt :: MixedAmount
nullamt = Mixed [] nullamt = Mixed []
-- | A temporary value for parsed transactions which had no amount specified. -- | A temporary value for parsed transactions which had no amount specified.
autoamt :: MixedAmount missingamt :: MixedAmount
autoamt = Mixed [Amount (Commodity {symbol="AUTO",side=L,spaced=False,comma=False,precision=0}) 0] missingamt = Mixed [Amount (Commodity {symbol="AUTO",side=L,spaced=False,comma=False,precision=0}) 0]

4
Ledger/Parse.hs
View File

@ -305,9 +305,9 @@ transactionamount :: Parser MixedAmount
transactionamount = transactionamount =
try (do try (do
many1 spacenonewline many1 spacenonewline
a <- try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount <|> return autoamt a <- try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount <|> return missingamt
return a return a
) <|> return autoamt ) <|> return missingamt
leftsymbolamount :: Parser MixedAmount leftsymbolamount :: Parser MixedAmount
leftsymbolamount = do leftsymbolamount = do

2
Ledger/RawTransaction.hs
View File

@ -30,4 +30,4 @@ isReal :: RawTransaction -> Bool
isReal t = rttype t == RegularTransaction isReal t = rttype t == RegularTransaction
hasAmount :: RawTransaction -> Bool hasAmount :: RawTransaction -> Bool
hasAmount = (/= autoamt) . tamount hasAmount = (/= missingamt) . tamount