mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Removed the setkey command, and added a setcontent command with a more useful interface.

Browse source
This commit is contained in:
Joey Hess 2011-10-31 12:33:41 -04:00
parent e09dd6f306
commit cc1ea8f844
6 changed files with 80 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

9
GitAnnex.hs
View file

@ -26,7 +26,7 @@ import qualified Command.Copy
import qualified Command.Get
import qualified Command.FromKey
import qualified Command.DropKey
import qualified Command.SetKey
import qualified Command.SetContent
import qualified Command.Fix
import qualified Command.Init
import qualified Command.Describe
@ -63,6 +63,7 @@ cmds = concat
, Command.Init.def
, Command.Describe.def
, Command.InitRemote.def
, Command.SetContent.def
, Command.Unannex.def
, Command.Uninit.def
, Command.PreCommit.def
@ -72,7 +73,6 @@ cmds = concat
, Command.AddUrl.def
, Command.FromKey.def
, Command.DropKey.def
, Command.SetKey.def
, Command.Fix.def
, Command.Fsck.def
, Command.Unused.def
@ -89,9 +89,7 @@ cmds = concat
options :: [Option]
options = commonOptions ++
[ Option ['k'] ["key"] (ReqArg setkey paramKey)
"specify a key to use"
, Option ['t'] ["to"] (ReqArg setto paramRemote)
[ Option ['t'] ["to"] (ReqArg setto paramRemote)
"specify to where to transfer content"
, Option ['f'] ["from"] (ReqArg setfrom paramRemote)
"specify from where to transfer content"
@ -116,7 +114,6 @@ options = commonOptions ++
setto v = Annex.changeState $ \s -> s { Annex.toremote = Just v }
setfrom v = Annex.changeState $ \s -> s { Annex.fromremote = Just v }
setnumcopies v = Annex.changeState $ \s -> s {Annex.forcenumcopies = readMaybe v }
setkey v = Annex.changeState $ \s -> s { Annex.defaultkey = Just v }
setgitconfig :: String -> Annex ()
setgitconfig v = do
g <- gitRepo