wrote transfer thread
finally!
This commit is contained in:
parent
e8df726d07
commit
71b5ad8398
7 changed files with 136 additions and 20 deletions
|
@ -31,12 +31,14 @@ data DaemonStatus = DaemonStatus
|
|||
-- Last time the sanity checker ran
|
||||
, lastSanityCheck :: Maybe POSIXTime
|
||||
-- Currently running file content transfers
|
||||
, currentTransfers :: M.Map Transfer TransferInfo
|
||||
, currentTransfers :: TransferMap
|
||||
-- Ordered list of remotes to talk to.
|
||||
, knownRemotes :: [Remote]
|
||||
}
|
||||
deriving (Show)
|
||||
|
||||
type TransferMap = M.Map Transfer TransferInfo
|
||||
|
||||
type DaemonStatusHandle = MVar DaemonStatus
|
||||
|
||||
newDaemonStatus :: DaemonStatus
|
||||
|
@ -132,3 +134,8 @@ afterLastDaemonRun timestamp status = maybe False (< t) (lastRunning status)
|
|||
|
||||
tenMinutes :: Int
|
||||
tenMinutes = 10 * 60
|
||||
|
||||
{- Mutates the transfer map. -}
|
||||
adjustTransfers :: DaemonStatusHandle -> (TransferMap -> TransferMap) -> Annex ()
|
||||
adjustTransfers dstatus a = modifyDaemonStatus dstatus $
|
||||
\s -> s { currentTransfers = a (currentTransfers s) }
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue