diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-06 10:14:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-06 10:57:57 -0400 |
| commit | 1f8a1058c96bd4ee11fcb353f0ede1842d79ab6a (patch) | |
| tree | 0754233445da5c75737aa2b7866881d30939ec56 /GitAnnex.hs | |
| parent | df21cbfdd2b7342c206ebd4aea32d989328374dc (diff) | |
tweak
Diffstat (limited to 'GitAnnex.hs')
| -rw-r--r-- | GitAnnex.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs index 8af1d5d59..64020754f 100644 --- a/GitAnnex.hs +++ b/GitAnnex.hs @@ -18,6 +18,7 @@ import Types.TrustLevel import qualified Annex import qualified Remote import qualified Limit +import qualified Option import qualified Command.Add import qualified Command.Unannex @@ -93,7 +94,7 @@ cmds = concat ] options :: [Option] -options = commonOptions ++ +options = Option.common ++ [ Option ['N'] ["numcopies"] (ReqArg setnumcopies paramNumber) "override default number of copies" , Option [] ["trust"] (ReqArg (Remote.forceTrust Trusted) paramRemote) @@ -114,7 +115,7 @@ options = commonOptions ++ "skip files with fewer copies" , Option ['B'] ["inbackend"] (ReqArg Limit.addInBackend paramName) "skip files not using a key-value backend" - ] ++ matcherOptions + ] ++ Option.matcher where setnumcopies v = Annex.changeState $ \s -> s {Annex.forcenumcopies = readMaybe v } setgitconfig :: String -> Annex () |