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

convert: don't reverse order of transactions

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Convert.hs
View File

@ -92,7 +92,7 @@ convert opts = do
csvparse <- parseCsv csvfile csvparse <- parseCsv csvfile
let records = case csvparse of let records = case csvparse of
Left e -> error' $ show e Left e -> error' $ show e
Right rs -> reverse $ filter (/= [""]) rs Right rs -> filter (/= [""]) rs
exists <- doesFileExist rulesfile exists <- doesFileExist rulesfile
if (not exists) then do if (not exists) then do
hPrintf stderr "creating conversion rules file %s, edit this file for better results\n" rulesfile hPrintf stderr "creating conversion rules file %s, edit this file for better results\n" rulesfile

8
tests/convert-with-in-and-out-fields.test
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, 10/2009/09,Flubber Co,50,
11/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 2009/09/10 Flubber Co
income:unknown $-50 income:unknown $-50
Assets:MyAccount $50 Assets:MyAccount $50
2009/09/11 Flubber Co
expenses:unknown $50
Assets:MyAccount $-50
>>>2 /using conversion rules file convert.rules[0-9]*.$/ >>>2 /using conversion rules file convert.rules[0-9]*.$/
>>>=0 >>>=0