diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-02 16:17:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-02 16:17:06 -0400 |
| commit | c150b05386e97ddaa1162a0943312223c94a225b (patch) | |
| tree | b9253fa12ffa70dde092c19d8b13536b404b72bf /Assistant/DaemonStatus.hs | |
| parent | ec8571ee6d5484dd32f93bf0cebeb2983723d4fb (diff) | |
avoid queuing transfers that are currently running
Diffstat (limited to 'Assistant/DaemonStatus.hs')
| -rw-r--r-- | Assistant/DaemonStatus.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index e5c25f4cd..b6c9d0a67 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -151,6 +151,11 @@ adjustTransfersSTM dstatus a = do s <- takeTMVar dstatus putTMVar dstatus $ s { currentTransfers = a (currentTransfers s) } +{- Checks if a transfer is currently running. -} +checkRunningTransferSTM :: DaemonStatusHandle -> Transfer -> STM Bool +checkRunningTransferSTM dstatus t = M.member t . currentTransfers + <$> readTMVar dstatus + {- Alters a transfer's info, if the transfer is in the map. -} alterTransferInfo :: Transfer -> (TransferInfo -> TransferInfo) -> Assistant () alterTransferInfo t a = updateTransferInfo' $ M.adjust a t |