mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

linux upgrade code debugged and working

Browse source
This commit is contained in:
Joey Hess 2013-11-24 00:26:20 -04:00
parent fdc10b9436
commit fead2941cd
3 changed files with 29 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/TransferWatcher.hs
View file

@ -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