finished pushing Assistant monad into all relevant files

All temporary and old functions are removed.

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