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/Seek.hs | |
| parent | 00e37e72e06d3692ea2b5c77dfa6b0147a3b6d6d (diff) | |
convert Unused, and remove some dead code for old style option parsing
Diffstat (limited to 'CmdLine/Seek.hs')
| -rw-r--r-- | CmdLine/Seek.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index b40e0d17a..e67c3b908 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -22,7 +22,6 @@ import qualified Git.LsFiles as LsFiles import qualified Git.LsTree as LsTree import Git.FilePath import qualified Limit -import CmdLine.Option import CmdLine.GitAnnex.Options import CmdLine.Action import Logs.Location @@ -152,15 +151,6 @@ withKeys a params = seekActions $ return $ map (a . parse) params where parse p = fromMaybe (error "bad key") $ file2key p -{- Gets the value of a field options, which is fed into - - a conversion function. - -} -getOptionField :: Option -> (Maybe String -> Annex a) -> Annex a -getOptionField option converter = converter <=< Annex.getField $ optionName option - -getOptionFlag :: Option -> Annex Bool -getOptionFlag option = Annex.getFlag (optionName option) - withNothing :: CommandStart -> CmdParams -> CommandSeek withNothing a [] = seekActions $ return [a] withNothing _ _ = error "This command takes no parameters." |