diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-22 14:03:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-22 14:03:06 -0400 |
| commit | f81c1f10e6ce452636eb06209c3702d2da05c49f (patch) | |
| tree | 055ef3f0f0d97682364feea4f90d20ce1932758b | |
| parent | 078d1dd0cbb22dbdd8d97a96c77a391d7df829c0 (diff) | |
show a warning message when failing to find requested key
Otherwise, the user sees only a rsync protocol error message and then
git-annex's less specific failure message.
| -rw-r--r-- | Command/SendKey.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Command/SendKey.hs b/Command/SendKey.hs index 7497ce3bf..c2f793f8f 100644 --- a/Command/SendKey.hs +++ b/Command/SendKey.hs @@ -16,6 +16,7 @@ import Command import Content import Utility import RsyncFile +import Messages command :: [Command] command = [repoCommand "sendkey" paramKey seek @@ -30,4 +31,5 @@ start key = do let file = gitAnnexLocation g key whenM (inAnnex key) $ liftIO $ rsyncServerSend file -- does not return + warning "requested key is not present" liftIO exitFailure |