summaryrefslogtreecommitdiff
path: root/Assistant/Threads
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-24 00:26:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-24 00:26:20 -0400
commit49f6892455e72edfc05da848de20b644ebf5a852 (patch)
treee2c305268c655d96e6e913306a1737a78437d71d /Assistant/Threads
parent3711edf33110923c1e58663b6703698ffa93c8f5 (diff)
linux upgrade code debugged and working
Diffstat (limited to 'Assistant/Threads')
-rw-r--r--Assistant/Threads/TransferWatcher.hs6
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