aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Drop.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-20 13:31:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-20 13:31:03 -0400
commite3154828f5f44071536c19044ea14240efd9880c (patch)
treed765f4aff353f14c04658aff3d3e384eab1e1224 /Assistant/Drop.hs
parentf03dab3b7c7a0d377d00d65ed4b8af935e97571d (diff)
much better command action handling for sync --content
Diffstat (limited to 'Assistant/Drop.hs')
-rw-r--r--Assistant/Drop.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs
index 03ab5ab2c..3020b0f4f 100644
--- a/Assistant/Drop.hs
+++ b/Assistant/Drop.hs
@@ -14,6 +14,7 @@ import Assistant.Common
import Assistant.DaemonStatus
import Annex.Drop (handleDropsFrom, Reason)
import Logs.Location
+import RunCommand
{- Drop from local and/or remote when allowed by the preferred content and
- numcopies settings. -}
@@ -22,4 +23,4 @@ handleDrops _ _ _ Nothing _ = noop
handleDrops reason fromhere key f knownpresentremote = do
syncrs <- syncDataRemotes <$> getDaemonStatus
locs <- liftAnnex $ loggedLocations key
- liftAnnex $ handleDropsFrom locs syncrs reason fromhere key f knownpresentremote
+ liftAnnex $ handleDropsFrom locs syncrs reason fromhere key f knownpresentremote callCommand