linux upgrade code debugged and working
This commit is contained in:
parent
fdc10b9436
commit
fead2941cd
3 changed files with 29 additions and 12 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue