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
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 -} {- Output logging -}
showStart :: String -> String -> Annex () showStart :: String -> String -> Annex ()
showStart command file = do showStart command file = do
liftIO $ putStr $ command ++ " " ++ file liftIO $ putStr $ command ++ " " ++ file ++ " "
liftIO $ hFlush stdout liftIO $ hFlush stdout
showNote :: String -> Annex () showNote :: String -> Annex ()
showNote s = do showNote s = do
liftIO $ putStr $ " (" ++ s ++ ")" liftIO $ putStr $ "(" ++ s ++ ") "
liftIO $ hFlush stdout liftIO $ hFlush stdout
showLongNote :: String -> Annex () showLongNote :: String -> Annex ()
showLongNote s = do showLongNote s = do
@ -110,7 +110,7 @@ showLongNote s = do
indent s = join "\n" $ map (\l -> " " ++ l) $ lines s indent s = join "\n" $ map (\l -> " " ++ l) $ lines s
showEndOk :: Annex () showEndOk :: Annex ()
showEndOk = do showEndOk = do
liftIO $ putStrLn " ok" liftIO $ putStrLn "ok"
showEndFail :: Annex () showEndFail :: Annex ()
showEndFail = do showEndFail = do
liftIO $ putStrLn "\nfailed" liftIO $ putStrLn "\nfailed"