mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

better message display

Browse source
This commit is contained in:
Joey Hess 2010-10-23 13:59:47 -04:00
parent 9dfbf40d1a
commit 03bcb8d8b3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Core.hs
View file

@ -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"