move DaemonStatus manipulation out of the Annex monad to IO
I've convinced myself that nothing in DaemonStatus can deadlock, as it always keepts the TMVar full. That was the only reason it was in the Annex monad.
This commit is contained in:
parent
a17fde22fa
commit
3cc1885793
9 changed files with 49 additions and 60 deletions
|
@ -59,7 +59,7 @@ stubInfo f r = TransferInfo
|
|||
{- Adds transfers to queue for some of the known remotes. -}
|
||||
queueTransfers :: Schedule -> TransferQueue -> DaemonStatusHandle -> Key -> AssociatedFile -> Direction -> Annex ()
|
||||
queueTransfers schedule q daemonstatus k f direction = do
|
||||
rs <- knownRemotes <$> getDaemonStatus daemonstatus
|
||||
rs <- knownRemotes <$> liftIO (getDaemonStatus daemonstatus)
|
||||
mapM_ go =<< sufficientremotes rs
|
||||
where
|
||||
sufficientremotes rs
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue