From 1b5f72c17f6542d7df7afc84f2b84c3cf755bf1b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 19 Nov 2009 06:22:09 +0000
Subject: [PATCH] refactor

---
 Commands/Convert.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Commands/Convert.hs b/Commands/Convert.hs
index da3a3e1d2..41358a80e 100644
--- a/Commands/Convert.hs
+++ b/Commands/Convert.hs
@@ -71,9 +71,9 @@ print_ledger_txn debug (baseacct,fieldpositions,rules) csvrecord
                   | otherwise = "expenses:unknown"
       (acct,desc) = choose_acct_desc rules (unknownacct,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
-  putStrLn $ printf "    %-30s  %15s" acct (printf "$%s" amount' :: String)
-  putStrLn $ printf "    %s\n" baseacct
+  printf "%s%s %s\n" (fixdate date) (if not (null number) then printf " (%s)" number else "") desc
+  printf "    %-30s  %15s\n" acct (printf "$%s" amount' :: String)
+  printf "    %s\n\n" baseacct
 
 choose_acct_desc :: [Rule] -> (String,String) -> (String,String)
 choose_acct_desc rules (acct,desc) | null matchingrules = (acct,desc)