From 03bcb8d8b3033726eb4a5b1122fbadc1adb6b3a5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 23 Oct 2010 13:59:47 -0400
Subject: better message display

---
 Core.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index da05823bb..176aa2bf3 100644
--- a/Core.hs
+++ b/Core.hs
@@ -97,11 +97,11 @@ logStatus key status = do
 {- Output logging -}
 showStart :: String -> String -> Annex ()
 showStart command file = do
-	liftIO $ putStr $ command ++ " " ++ file
+	liftIO $ putStr $ command ++ " " ++ file ++ " "
 	liftIO $ hFlush stdout
 showNote :: String -> Annex ()
 showNote s = do
-	liftIO $ putStr $ " (" ++ s ++ ")"
+	liftIO $ putStr $ "(" ++ s ++ ") "
 	liftIO $ hFlush stdout
 showLongNote :: String -> Annex ()
 showLongNote s = do
@@ -110,7 +110,7 @@ showLongNote s = do
 		indent s = join "\n" $ map (\l -> "  " ++ l) $ lines s 
 showEndOk :: Annex ()
 showEndOk = do
-	liftIO $ putStrLn " ok"
+	liftIO $ putStrLn "ok"
 showEndFail :: Annex ()
 showEndFail = do
 	liftIO $ putStrLn "\nfailed"
-- 
cgit v1.2.3