diff options
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index d4c00afd8..db147ee10 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -86,9 +86,10 @@ doTransfer dstatus t info program = case (transferRemote info, associatedFile in <- createProcess (proc program $ toCommand params) { create_group = True } ok <- (==) ExitSuccess <$> waitForProcess pid - addAlert dstatus $ - makeAlertFiller ok $ - transferFileAlert direction ok file + when ok $ void $ + addAlert dstatus $ + makeAlertFiller ok $ + transferFileAlert direction ok file where params = [ Param "transferkey" |