diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-05 22:48:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-05 23:11:07 -0400 |
| commit | ad43f0362688a601ba43f462e80f5a91bf398c02 (patch) | |
| tree | 550788062a775eb6b2c2c087052993aa10435875 /GitAnnex.hs | |
| parent | 47be4383b714320c9e3f49cc23315101fad5735b (diff) | |
per-command options
Finally commands can define their own options.
Moved --format and --print0 to be options only of find.
Diffstat (limited to 'GitAnnex.hs')
| -rw-r--r-- | GitAnnex.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs index 7243d69cb..3ce451810 100644 --- a/GitAnnex.hs +++ b/GitAnnex.hs @@ -18,7 +18,6 @@ import Types.TrustLevel import qualified Annex import qualified Remote import qualified Limit -import qualified Utility.Format import qualified Command.Add import qualified Command.Unannex @@ -109,10 +108,6 @@ options = commonOptions ++ "override trust setting to untrusted" , Option ['c'] ["config"] (ReqArg setgitconfig "NAME=VALUE") "override git configuration setting" - , Option [] ["print0"] (NoArg setprint0) - "terminate output with null" - , Option [] ["format"] (ReqArg setformat paramFormat) - "control format of output" , Option ['x'] ["exclude"] (ReqArg Limit.addExclude paramGlob) "skip files matching the glob pattern" , Option ['I'] ["include"] (ReqArg Limit.addInclude paramGlob) @@ -128,8 +123,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 } - setformat v = Annex.changeState $ \s -> s { Annex.format = Just $ Utility.Format.gen v } - setprint0 = setformat "${file}\0" setgitconfig :: String -> Annex () setgitconfig v = do newg <- inRepo $ Git.Config.store v |