aboutsummaryrefslogtreecommitdiff
path: root/CmdLine/Option.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-07-10 16:05:56 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-07-10 16:05:56 -0400
commitaa96e9c8667b5e80b5ccae1958a073518d463dfa (patch)
treedc4452a8b96b9c47902a17e65541e71c506ec848 /CmdLine/Option.hs
parent00e37e72e06d3692ea2b5c77dfa6b0147a3b6d6d (diff)
convert Unused, and remove some dead code for old style option parsing
Diffstat (limited to 'CmdLine/Option.hs')
-rw-r--r--CmdLine/Option.hs28
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