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