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

2
Core.hs
View file

@ -97,7 +97,7 @@ 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