simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 15:14:49 +03:00
Code Issues Projects Releases Wiki Activity

fix a bug in commodity detection

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 19:28:36 +00:00
parent 529393ae49
commit ea2a418811
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Ledger/RawLedger.hs
View File

@ -105,8 +105,10 @@ normaliseRawLedgerAmounts l@(RawLedger ms ps es f) = RawLedger ms ps es' f
normaliseRawTransactionAmounts (RawTransaction acct a c) = RawTransaction acct a' c normaliseRawTransactionAmounts (RawTransaction acct a c) = RawTransaction acct a' c
where a' = normaliseAmount a where a' = normaliseAmount a
normaliseAmount (Amount c q) = Amount (firstoccurrenceof c) q normaliseAmount (Amount c q) = Amount (firstoccurrenceof c) q
firstcommodities = nubBy samesymbol $ allcommodities
allcommodities = map (commodity . amount) $ rawLedgerTransactions l
samesymbol (Commodity {symbol=s1}) (Commodity {symbol=s2}) = s1==s2
firstoccurrenceof c@(Commodity {symbol=s}) = firstoccurrenceof c@(Commodity {symbol=s}) =
fromMaybe fromMaybe
(error "failed to normalise commodity") -- shouldn't happen (error "failed to normalise commodity") -- shouldn't happen
(find (\(Commodity {symbol=sym}) -> sym==s) firstcommodities) (find (\(Commodity {symbol=sym}) -> sym==s) firstcommodities)
firstcommodities = nub $ map (commodity . amount) $ rawLedgerTransactions l