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

merge with git-repair

Browse source
This commit is contained in:
Joey Hess 2013-11-19 17:08:57 -04:00
parent 423e933800
commit b1ed98636b
5 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/SendKey.hs
View file

@ -46,6 +46,4 @@ fieldTransfer direction key a = do
ok <- maybe (a $ const noop)
(\u -> runTransfer (Transfer direction (toUUID u) key) afile noRetry a)
=<< Fields.getField Fields.remoteUUID
liftIO $ if ok
then exitSuccess
else exitFailure
liftIO $ exitBool ok