984c9fc052
get, drop: Added --auto option, which decides whether to get/drop content as needed to work toward the configured numcopies. The problem with bundling it up in optimize was that I then found I wanted to run an optmize that did not drop files, only got them. Considered adding a --only-get switch to it, but that seemed wrong. Instead, let's make existing subcommands optionally smarter. Note that the only actual difference between drop and drop --auto is that the latter does not even try to drop a file if it knows of not enough copies, and does not print any error messages about files it was unable to drop. It might be nice to make get avoid asking git for attributes when not in auto mode. For now it always asks for attributes.
49 lines
1.6 KiB
Haskell
49 lines
1.6 KiB
Haskell
{- git-annex dashed options
|
|
-
|
|
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Options where
|
|
|
|
import System.Console.GetOpt
|
|
import System.Log.Logger
|
|
import Control.Monad.State (liftIO)
|
|
|
|
import qualified Annex
|
|
import Types
|
|
import Command
|
|
|
|
{- Each dashed command-line option results in generation of an action
|
|
- in the Annex monad that performs the necessary setting.
|
|
-}
|
|
type Option = OptDescr (Annex ())
|
|
|
|
commonOptions :: [Option]
|
|
commonOptions =
|
|
[ Option [] ["force"] (NoArg (setforce True))
|
|
"allow actions that may lose annexed data"
|
|
, Option ['F'] ["fast"] (NoArg (setfast True))
|
|
"avoid slow operations"
|
|
, Option ['a'] ["auto"] (NoArg (setauto True))
|
|
"automatic mode"
|
|
, Option ['q'] ["quiet"] (NoArg (setoutput Annex.QuietOutput))
|
|
"avoid verbose output"
|
|
, Option ['v'] ["verbose"] (NoArg (setoutput Annex.NormalOutput))
|
|
"allow verbose output (default)"
|
|
, Option ['j'] ["json"] (NoArg (setoutput Annex.JSONOutput))
|
|
"enable JSON output"
|
|
, Option ['d'] ["debug"] (NoArg (setdebug))
|
|
"show debug messages"
|
|
, Option ['b'] ["backend"] (ReqArg setforcebackend paramName)
|
|
"specify key-value backend to use"
|
|
]
|
|
where
|
|
setforce v = Annex.changeState $ \s -> s { Annex.force = v }
|
|
setfast v = Annex.changeState $ \s -> s { Annex.fast = v }
|
|
setauto v = Annex.changeState $ \s -> s { Annex.auto = v }
|
|
setoutput v = Annex.changeState $ \s -> s { Annex.output = v }
|
|
setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v }
|
|
setdebug = liftIO $ updateGlobalLogger rootLoggerName $
|
|
setLevel DEBUG
|