3da0064657
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.
30 lines
682 B
Haskell
30 lines
682 B
Haskell
{- git-annex assistant unused file preferences
|
|
-
|
|
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-}
|
|
|
|
module Assistant.WebApp.Configurators.Unused where
|
|
|
|
import Assistant.WebApp.Common
|
|
import qualified Annex
|
|
import qualified Git
|
|
import Config
|
|
import Config.Files
|
|
import Config.NumCopies
|
|
import Utility.DataUnits
|
|
import Git.Config
|
|
import Types.Distribution
|
|
import qualified Build.SysConfig
|
|
|
|
import qualified Data.Text as T
|
|
|
|
getConfigUnusedR :: Handler Html
|
|
getConfigUnusedR = error "TODO"
|
|
|
|
postConfigUnusedR :: Handler Html
|
|
postConfigUnusedR = getConfigUnusedR
|
|
|