diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-24 00:26:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-24 00:26:20 -0400 |
| commit | 49f6892455e72edfc05da848de20b644ebf5a852 (patch) | |
| tree | e2c305268c655d96e6e913306a1737a78437d71d /Assistant/Threads | |
| parent | 3711edf33110923c1e58663b6703698ffa93c8f5 (diff) | |
linux upgrade code debugged and working
Diffstat (limited to 'Assistant/Threads')
| -rw-r--r-- | Assistant/Threads/TransferWatcher.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index 1c1e470f9..cd7282865 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -91,9 +91,9 @@ onDel file = case parseTransferFile file of minfo <- removeTransfer t -- Run transfer hook. - void $ maybe noop (\hook -> void $ forkIO $ hook t) - . M.lookup (transferKey t) - . transferHook <$> getDaemonStatus + m <- transferHook <$> getDaemonStatus + maybe noop (\hook -> void $ liftIO $ forkIO $ hook t) + (M.lookup (transferKey t) m) finished <- asIO2 finishedTransfer void $ liftIO $ forkIO $ do |