summaryrefslogtreecommitdiff
path: root/Types/StandardGroups.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-22 22:48:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-22 22:53:18 -0400
commit43e3f104239eda7d484cfacc0c13ab6066997845 (patch)
tree09f2d8133cd720394e1bc882594fc44a59e20588 /Types/StandardGroups.hs
parentd1c13779bb4606cdb6d80a6e1dfd2cdb11478199 (diff)
assistant unused file handling
Make sanity checker run git annex unused daily, and queue up transfers of unused files to any remotes that will have them. The transfer retrying code works for us here, so eg when a backup disk remote is plugged in, any transfers to it are done. Once the unused files reach a remote, they'll be removed locally as unwanted. If the setup does not cause unused files to go to a remote, they'll pile up, and the sanity checker detects this using some heuristics that are pretty good -- 1000 unused files, or 10% of disk used by unused files, or more disk wasted by unused files than is left free. Once it detects this, it pops up an alert in the webapp, with a button to take action. TODO: Webapp UI to configure this, and also the ability to launch an immediate cleanup of all unused files. This commit was sponsored by Simon Michael.
Diffstat (limited to 'Types/StandardGroups.hs')
-rw-r--r--Types/StandardGroups.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Types/StandardGroups.hs b/Types/StandardGroups.hs
index f89b4e424..434156a0e 100644
--- a/Types/StandardGroups.hs
+++ b/Types/StandardGroups.hs
@@ -75,7 +75,7 @@ associatedDirectory _ _ = Nothing
{- See doc/preferred_content.mdwn for explanations of these expressions. -}
preferredContent :: StandardGroup -> PreferredContentExpression
preferredContent ClientGroup = lastResort $
- "(exclude=*/archive/* and exclude=archive/*) or (" ++ notArchived ++ ")"
+ "((exclude=*/archive/* and exclude=archive/*) or (" ++ notArchived ++ ")) and not unused"
preferredContent TransferGroup = lastResort $
"not (inallgroup=client and copies=client:2) and (" ++ preferredContent ClientGroup ++ ")"
preferredContent BackupGroup = "include=*"