summaryrefslogtreecommitdiff
path: root/Commands.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-19 12:55:40 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-19 12:55:40 -0400
commitd23fc22f0e17c95765f940f81f733f9580e19107 (patch)
treec9d4f075f105cc5ca7d9e77338684baafa02fa42 /Commands.hs
parent2ea589e117bcc36ee613454ffb52b8e52cc96bc9 (diff)
less verbose failures seem better here
Diffstat (limited to 'Commands.hs')
-rw-r--r--Commands.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Commands.hs b/Commands.hs
index 115c3b3ed..e38f9c372 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -109,7 +109,7 @@ addCmd file = inBackend file $ do
g <- Annex.gitRepo
stored <- Backend.storeFileKey file
case (stored) of
- Nothing -> showEndFail "no backend could store" file
+ Nothing -> showEndFail
Just (key, backend) -> do
logStatus key ValuePresent
setup g key
@@ -162,7 +162,7 @@ getCmd file = notinBackend file $ \(key, backend) -> do
logStatus key ValuePresent
showEndOk
else do
- showEndFail "get" file
+ showEndFail
{- Indicates a file's content is not wanted anymore, and should be removed
- if it's safe to do so. -}
@@ -178,7 +178,7 @@ dropCmd file = notinBackend file $ \(key, backend) -> do
then do
cleanup key
showEndOk
- else showEndFail "drop" file
+ else showEndFail
where
cleanup key = do
logStatus key ValueMissing