diff options
Diffstat (limited to 'Assistant/Drop.hs')
| -rw-r--r-- | Assistant/Drop.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index 021e40a87..ed9ba577e 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -20,12 +20,13 @@ import Config {- Drop from local and/or remote when allowed by the preferred content and - numcopies settings. -} -handleDrops :: DaemonStatusHandle -> Bool -> Key -> AssociatedFile -> Annex () -handleDrops _ _ _ Nothing = noop -handleDrops dstatus fromhere key f = do - syncrs <- liftIO $ syncRemotes <$> getDaemonStatusOld dstatus - locs <- loggedLocations key - handleDrops' locs syncrs fromhere key f +handleDrops :: Bool -> Key -> AssociatedFile -> Assistant () +handleDrops _ _ Nothing = noop +handleDrops fromhere key f = do + syncrs <- syncRemotes <$> getDaemonStatus + liftAnnex $ do + locs <- loggedLocations key + handleDrops' locs syncrs fromhere key f handleDrops' :: [UUID] -> [Remote] -> Bool -> Key -> AssociatedFile -> Annex () handleDrops' _ _ _ _ Nothing = noop |