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

show a warning message when failing to find requested key

Browse source 
Otherwise, the user sees only a rsync protocol error message and then
git-annex's less specific failure message.
This commit is contained in:
Joey Hess 2011-05-22 14:03:06 -04:00
parent 078d1dd0cb
commit f81c1f10e6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/SendKey.hs
View file

@ -16,6 +16,7 @@ import Command
import Content import Content
import Utility import Utility
import RsyncFile import RsyncFile
import Messages
command :: [Command] command :: [Command]
command = [repoCommand "sendkey" paramKey seek command = [repoCommand "sendkey" paramKey seek
@ -30,4 +31,5 @@ start key = do
let file = gitAnnexLocation g key let file = gitAnnexLocation g key
whenM (inAnnex key) $ whenM (inAnnex key) $
liftIO $ rsyncServerSend file -- does not return liftIO $ rsyncServerSend file -- does not return
warning "requested key is not present"
liftIO exitFailure liftIO exitFailure