merge with git-repair
This commit is contained in:
parent
423e933800
commit
b1ed98636b
5 changed files with 12 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue