convert: don't reverse order of transactions

This commit is contained in:
Simon Michael 2011-09-19 03:10:16 +00:00
parent f6e15a2a80
commit 6ca155edc0
2 changed files with 5 additions and 5 deletions

View File

@ -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

View File

@ -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