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

refactor

Browse Source
This commit is contained in:
Simon Michael 2009-11-19 06:22:09 +00:00
parent 719638fa2f
commit 1b5f72c17f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Commands/Convert.hs
View File

@ -71,9 +71,9 @@ print_ledger_txn debug (baseacct,fieldpositions,rules) csvrecord
| otherwise = "expenses:unknown" | otherwise = "expenses:unknown"
(acct,desc) = choose_acct_desc rules (unknownacct,description) (acct,desc) = choose_acct_desc rules (unknownacct,description)
when (debug) $ hPutStrLn stderr $ printf "using %s for %s" desc description when (debug) $ hPutStrLn stderr $ printf "using %s for %s" desc description
putStrLn $ printf "%s%s %s" (fixdate date) (if not (null number) then printf " (%s)" number else "") desc printf "%s%s %s\n" (fixdate date) (if not (null number) then printf " (%s)" number else "") desc
putStrLn $ printf " %-30s %15s" acct (printf "$%s" amount' :: String) printf " %-30s %15s\n" acct (printf "$%s" amount' :: String)
putStrLn $ printf " %s\n" baseacct printf " %s\n\n" baseacct
choose_acct_desc :: [Rule] -> (String,String) -> (String,String) choose_acct_desc :: [Rule] -> (String,String) -> (String,String)
choose_acct_desc rules (acct,desc) | null matchingrules = (acct,desc) choose_acct_desc rules (acct,desc) | null matchingrules = (acct,desc)