diff options
author | Joey Hess <joey@kitenet.net> | 2010-12-31 13:39:30 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-12-31 13:39:43 -0400 |
commit | 60df4e5728b8af804f06c39ef3b897af12247ceb (patch) | |
tree | 682d1443d4d8e27f63f87ee9e0ae2f5629538385 /Options.hs | |
parent | f38aa3e83abb251a88362dbaf6e8fbddd477fa53 (diff) |
git-annex-shell is complete
still not used
Diffstat (limited to 'Options.hs')
-rw-r--r-- | Options.hs | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/Options.hs b/Options.hs index 684aed97d..5f367c9dd 100644 --- a/Options.hs +++ b/Options.hs @@ -24,21 +24,13 @@ storeOptString :: FlagName -> String -> Annex () storeOptString name val = Annex.flagChange name $ FlagString val commonOptions :: [Option] -commonOptions = [ - Option ['f'] ["force"] (NoArg (storeOptBool "force" True)) +commonOptions = + [ Option ['f'] ["force"] (NoArg (storeOptBool "force" True)) "allow actions that may lose annexed data" - , Option ['q'] ["quiet"] (NoArg (storeOptBool "quiet" True)) + , Option ['q'] ["quiet"] (NoArg (storeOptBool "quiet" True)) "avoid verbose output" - , Option ['v'] ["verbose"] (NoArg (storeOptBool "quiet" False)) + , Option ['v'] ["verbose"] (NoArg (storeOptBool "quiet" False)) "allow verbose output" - , Option ['b'] ["backend"] (ReqArg (storeOptString "backend") paramName) + , Option ['b'] ["backend"] (ReqArg (storeOptString "backend") paramName) "specify default key-value backend to use" - , Option ['k'] ["key"] (ReqArg (storeOptString "key") paramKey) - "specify a key to use" - , Option ['t'] ["to"] (ReqArg (storeOptString "torepository") paramRemote) - "specify to where to transfer content" - , Option ['f'] ["from"] (ReqArg (storeOptString "fromrepository") paramRemote) - "specify from where to transfer content" - , Option ['x'] ["exclude"] (ReqArg (storeOptString "exclude") paramGlob) - "skip files matching the glob pattern" - ] + ] |