diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-31 12:14:16 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-31 12:14:16 -0400 |
commit | 4004baafaf4297e77ca7bd23bb5b0de7fc8efb3e (patch) | |
tree | 9511ac5035da43605c4a9305ca42e903550bd127 /Assistant/DaemonStatus.hs | |
parent | 34aeecb78a40229b0a82638ec93f2feeb15bba27 (diff) |
fix alterTransferInfo
don't want to stomp over fields other than the ones being changed
Diffstat (limited to 'Assistant/DaemonStatus.hs')
-rw-r--r-- | Assistant/DaemonStatus.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index 18dc7342a..24ac0ffb0 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -192,9 +192,8 @@ adjustTransfersSTM dstatus a = do putTMVar dstatus $ s { currentTransfers = a (currentTransfers s) } {- Alters a transfer's info, if the transfer is in the map. -} -alterTransferInfo :: DaemonStatusHandle -> Transfer -> TransferInfo -> IO () -alterTransferInfo dstatus t info = updateTransferInfo' dstatus $ - M.adjust (const info) t +alterTransferInfo :: DaemonStatusHandle -> Transfer -> (TransferInfo -> TransferInfo) -> IO () +alterTransferInfo dstatus t a = updateTransferInfo' dstatus $ M.adjust a t {- Updates a transfer's info. Adds the transfer to the map if necessary, - or if already present, updates it while preserving the old transferTid |