diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-08 16:45:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-08 16:45:41 -0400 |
| commit | ba59ac13b25d5be671e38cb7b4c40257f3fdac4f (patch) | |
| tree | 7cd015417ec768c17136d125bc17335ccf1999ed /Messages.hs | |
| parent | 98a77ab7256e484d29d67fcffc1f173fcb830f60 (diff) | |
add showSideAction
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 3 |
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 ++ " " |