summaryrefslogtreecommitdiff
path: root/Messages.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-08 16:45:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-08 16:45:41 -0400
commitba59ac13b25d5be671e38cb7b4c40257f3fdac4f (patch)
tree7cd015417ec768c17136d125bc17335ccf1999ed /Messages.hs
parent98a77ab7256e484d29d67fcffc1f173fcb830f60 (diff)
add showSideAction
Diffstat (limited to 'Messages.hs')
-rw-r--r--Messages.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Messages.hs b/Messages.hs
index 89f78e244..ed4f3b90a 100644
--- a/Messages.hs
+++ b/Messages.hs
@@ -20,6 +20,9 @@ verbose a = do
q <- Annex.flagIsSet "quiet"
unless q a
+showSideAction :: String -> Annex ()
+showSideAction s = verbose $ liftIO $ putStrLn $ "(" ++ s ++ ")"
+
showStart :: String -> String -> Annex ()
showStart command file = verbose $ do
liftIO $ putStr $ command ++ " " ++ file ++ " "