@@ -7,13 +7,14 @@ import Finance.Halifax.Utilities import System.Locale import Data.Time.Format +import Data.List -- This CSV is designed to exactly match that you get from Halifax's front end outputCSV :: Options -> Account -> [Transaction] -> IO () outputCSV _options _account transactions = putStrLn $ unlines $ header : map transaction_line transactions where header = "Date,Amount,Description" - transaction_lines transaction = intercalate "," [date, amount, description] + transaction_line transaction = intercalate "," [date, amount, description] where date = formatTime defaultTimeLocale "%d/%m/%y" (tr_time transaction) amount = showFloatAsCurrencylike (fromRational ((case tr_type transaction of Debit -> negate; Credit -> id) Finance/Halifax/CSV.hs @@ -1,6 +1,5 @@ module Finance.Halifax.Core where -import Data.Maybe import Data.Time Finance/Halifax/Core.hs @@ -1,9 +1,5 @@ module Main where -import Control.Monad - -import Data.List -import Data.Maybe import Data.Monoid import System.Console.GetOpt @@ -11,6 +7,7 @@ import System.Environment (getArgs) import System.Exit import System.IO +import Finance.Halifax.CSV import Finance.Halifax.Ledger import Finance.Halifax.QIF import Finance.Halifax.Options @@ -26,7 +23,7 @@ main = do let (optionss, page_paths, errors) = getOpt Permute option_descriptions args if notNull errors then do - mapM putStrLn errors + mapM_ putStrLn errors putStrLn $ usageInfo "halifax-ledger" option_descriptions exitWith (ExitFailure 1) else do Finance/Halifax/Main.hs d474b12ded759c7be22f0a2de69b603c0580f188 Max Bolingbroke batterseapower@hotmail.com http://github.com/batterseapower/halifax-import/commit/cb426d74a971f5a6e5b3c5b0b5eecac26b694618 cb426d74a971f5a6e5b3c5b0b5eecac26b694618 2009-11-01T09:46:26-08:00 2009-11-01T09:46:26-08:00 Fix warnings and compile errors feb8e6604bda8c0662fb5e7ebfb22f5866f0e366 Max Bolingbroke batterseapower@hotmail.com