verbosity

1 files changed, 3 insertions, 0 deletions

diff --git a/Commands.hs b/Commands.hs
index 2ff8d0d7b..e9b5ddcbd 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -95,6 +95,7 @@ parseCmd argv state = do
 addCmd :: FilePath -> Annex ()
 addCmd file = inBackend file err $ do
 	liftIO $ checkLegal file
+	liftIO $ putStrLn $ "add " ++ file
 	g <- Annex.gitRepo
 	stored <- Backend.storeFileKey file
 	case (stored) of
@@ -120,6 +121,7 @@ addCmd file = inBackend file err $ do
 {- Undo addCmd. -}
 unannexCmd :: FilePath -> Annex ()
 unannexCmd file = notinBackend file err $ \(key, backend) -> do
+	liftIO $ putStrLn $ "unannex " ++ file
 	Backend.removeKey backend key
 	logStatus key ValueMissing
 	g <- Annex.gitRepo
@@ -168,6 +170,7 @@ dropCmd file = notinBackend file err $ \(key, backend) -> do
 	if (not inbackend)
 		then return () -- no-op
 		else do
+			liftIO $ putStrLn $ "drop " ++ file
 			success <- Backend.removeKey backend key
 			if (success)
 				then cleanup key