hlint
test suite still passes
This commit is contained in:
parent
3192b059b5
commit
b405295aee
30 changed files with 72 additions and 75 deletions
|
@ -46,6 +46,6 @@ fieldTransfer direction key a = do
|
|||
ok <- maybe (a $ const noop)
|
||||
(\u -> runTransfer (Transfer direction (toUUID u) key) afile noRetry a)
|
||||
=<< Fields.getField Fields.remoteUUID
|
||||
if ok
|
||||
then liftIO exitSuccess
|
||||
else liftIO exitFailure
|
||||
liftIO $ if ok
|
||||
then exitSuccess
|
||||
else exitFailure
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue