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

refactor

Browse source
This commit is contained in:
Joey Hess 2012-07-29 08:52:57 -04:00
parent 62dac85880
commit 57203e3981
4 changed files with 47 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferQueue.hs
View file

@ -95,7 +95,7 @@ enqueue schedule q dstatus t info
void $ modqueue (queue q) new
void $ modifyTVar' (queuesize q) succ
void $ modifyTVar' (queuelist q) modlist
void $ notifyDaemonStatusChange dstatus
void $ notifyTransfer dstatus
{- Adds a transfer to the queue. -}
queueTransfer :: Schedule -> TransferQueue -> DaemonStatusHandle -> AssociatedFile -> Transfer -> Remote -> IO ()