From 926c83c21804f90922154edfdafc5d9f64c9bb44 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Mar 2014 15:20:55 -0400 Subject: Added required content configuration. This includes checking when dropping files that any required content configuration is satisfied. However, it does not yet include an active check on the required content; the location log is trusted when checking the required content expression. --- Command/DropUnused.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/DropUnused.hs') diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index 5d1923d34..ce49795c9 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -34,7 +34,7 @@ perform numcopies key = maybe droplocal dropremote =<< Remote.byNameWithUUID =<< where dropremote r = do showAction $ "from " ++ Remote.name r - Command.Drop.performRemote key numcopies r + Command.Drop.performRemote key Nothing numcopies r droplocal = Command.Drop.performLocal key Nothing numcopies Nothing from = Annex.getField $ optionName Command.Drop.dropFromOption -- cgit v1.2.3