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