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

add showSideAction

Browse source
This commit is contained in:
Joey Hess 2010-11-08 16:45:41 -04:00
parent 98a77ab725
commit ba59ac13b2
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Messages.hs
View file

@ -20,6 +20,9 @@ verbose a = do
q <- Annex.flagIsSet "quiet" q <- Annex.flagIsSet "quiet"
unless q a unless q a
showSideAction :: String -> Annex ()
showSideAction s = verbose $ liftIO $ putStrLn $ "(" ++ s ++ ")"
showStart :: String -> String -> Annex () showStart :: String -> String -> Annex ()
showStart command file = verbose $ do showStart command file = verbose $ do
liftIO $ putStr $ command ++ " " ++ file ++ " " liftIO $ putStr $ command ++ " " ++ file ++ " "