summaryrefslogtreecommitdiff
path: root/Assistant/Threads/Transferrer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-29 08:52:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-29 08:52:57 -0400
commit57203e39811e4e769a6feb576a8779707664c40d (patch)
treeb8b87a96027fa6a9804af9dd7e7d8ccbb685eaf4 /Assistant/Threads/Transferrer.hs
parent62dac858807da8fb62ce55adbed84cfe582367b2 (diff)
refactor
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
-rw-r--r--Assistant/Threads/Transferrer.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs
index f011ff036..a801556db 100644
--- a/Assistant/Threads/Transferrer.hs
+++ b/Assistant/Threads/Transferrer.hs
@@ -38,14 +38,13 @@ transfererThread st dstatus transferqueue slots = go
ifM (runThreadState st $ shouldTransfer dstatus t info)
( do
debug thisThread [ "Transferring:" , show t ]
- notifyDaemonStatusChange dstatus
+ notifyTransfer dstatus
transferThread st dstatus slots t info
, do
debug thisThread [ "Skipping unnecessary transfer:" , show t ]
-- getNextTransfer added t to the
-- daemonstatus's transfer map.
void $ removeTransfer dstatus t
- notifyDaemonStatusChange dstatus
)
go