diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-10 16:05:56 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 16:05:56 -0400 |
commit | aa96e9c8667b5e80b5ccae1958a073518d463dfa (patch) | |
tree | dc4452a8b96b9c47902a17e65541e71c506ec848 /CmdLine/Option.hs | |
parent | 00e37e72e06d3692ea2b5c77dfa6b0147a3b6d6d (diff) |
convert Unused, and remove some dead code for old style option parsing
Diffstat (limited to 'CmdLine/Option.hs')
-rw-r--r-- | CmdLine/Option.hs | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/CmdLine/Option.hs b/CmdLine/Option.hs index 9f2353f98..4e201cbd4 100644 --- a/CmdLine/Option.hs +++ b/CmdLine/Option.hs @@ -5,18 +5,9 @@ - Licensed under the GNU GPL version 3 or higher. -} -module CmdLine.Option ( - commonGlobalOptions, - flagOption, - fieldOption, - optionName, - optionParam, - ArgDescr(..), - OptDescr(..), -) where +module CmdLine.Option where import Options.Applicative -import System.Console.GetOpt import Common.Annex import CmdLine.Usage @@ -70,20 +61,3 @@ commonGlobalOptions = setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v } setdebug = Annex.changeGitConfig $ \c -> c { annexDebug = True } unsetdebug = Annex.changeGitConfig $ \c -> c { annexDebug = False } - -{- An option that sets a flag. -} -flagOption :: String -> String -> String -> Option -flagOption shortv opt description = - Option shortv [opt] (NoArg (Annex.setFlag opt)) description - -{- An option that sets a field. -} -fieldOption :: String -> String -> String -> String -> Option -fieldOption shortv opt paramdesc description = - Option shortv [opt] (ReqArg (Annex.setField opt) paramdesc) description - -{- The flag or field name used for an option. -} -optionName :: Option -> String -optionName (Option _ o _ _) = Prelude.head o - -optionParam :: Option -> String -optionParam o = "--" ++ optionName o |