merge with git-repair

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

View file

@ -56,4 +56,4 @@ fromPerform remote key file = go $
getViaTmp key $ \t -> Remote.retrieveKeyFile remote key file t p
go :: Annex Bool -> CommandPerform
go a = ifM a ( liftIO exitSuccess, liftIO exitFailure)
go a = a >>= liftIO . exitBool