diff options
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r-- | Assistant/Threads/Transferrer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index ae0adf300..9a772d628 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -96,10 +96,10 @@ transferThread dstatus slots t info runner program = case (transferRemote info, (_, _, _, pid) <- createProcess (proc program $ toCommand params) { create_group = True } - status <- waitForProcess pid + ok <- (==) ExitSuccess <$> waitForProcess pid addAlert dstatus $ - makeAlertFiller (status == ExitSuccess) $ - transferFileAlert direction file + makeAlertFiller ok $ + transferFileAlert direction ok file where params = [ Param "transferkey" |