convert: don't reverse order of transactions
This commit is contained in:
parent
f6e15a2a80
commit
6ca155edc0
@ -92,7 +92,7 @@ convert opts = do
|
||||
csvparse <- parseCsv csvfile
|
||||
let records = case csvparse of
|
||||
Left e -> error' $ show e
|
||||
Right rs -> reverse $ filter (/= [""]) rs
|
||||
Right rs -> filter (/= [""]) rs
|
||||
exists <- doesFileExist rulesfile
|
||||
if (not exists) then do
|
||||
hPrintf stderr "creating conversion rules file %s, edit this file for better results\n" rulesfile
|
||||
|
||||
@ -4,13 +4,13 @@ rm -rf convert.rules$$; printf 'base-account Assets:MyAccount\ndate-field 0\ndat
|
||||
10/2009/09,Flubber Co,50,
|
||||
11/2009/09,Flubber Co,,50
|
||||
>>>
|
||||
2009/09/11 Flubber Co
|
||||
expenses:unknown $50
|
||||
Assets:MyAccount $-50
|
||||
|
||||
2009/09/10 Flubber Co
|
||||
income:unknown $-50
|
||||
Assets:MyAccount $50
|
||||
|
||||
2009/09/11 Flubber Co
|
||||
expenses:unknown $50
|
||||
Assets:MyAccount $-50
|
||||
|
||||
>>>2 /using conversion rules file convert.rules[0-9]*.$/
|
||||
>>>=0
|
||||
|
||||
Loading…
Reference in New Issue
Block a user