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

convert: currency -> base-currency

Browse Source
This commit is contained in:
Simon Michael 2011-09-27 23:55:07 +00:00
parent 7d3b1f4a55
commit 780dc878c7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,7 +149,7 @@ initialRulesFileContent =
"date-field 0\n" ++
"description-field 4\n" ++
"amount-field 1\n" ++
"currency $\n" ++
"base-currency $\n" ++
"\n" ++
"# account-assigning rules\n" ++
"\n" ++
@ -300,7 +300,7 @@ account2field = do
updateState (\r -> r{account2Field=readMay v})
basecurrency = do
string "currency"
choice [string "base-currency", string "currency"]
many1 spacenonewline
v <- restofline
updateState (\r -> r{baseCurrency=Just v})