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

verbosity

Browse source
This commit is contained in:
Joey Hess 2010-10-17 12:12:23 -04:00
parent 98676928c8
commit 8f6e5da18f
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Commands.hs
View file

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