diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 17:59:06 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 17:59:06 -0400 |
| commit | e5fadb1bbcd0bafc9d2e9c5ded2e644e532baafc (patch) | |
| tree | 9c616f65306c3eb49cd616bb213002ca4811963d /Command.hs | |
| parent | 249e0861520a2904f70bf4b79a4ebddc009c3683 (diff) | |
wip
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/Command.hs b/Command.hs index e72bd1660..b272bba5d 100644 --- a/Command.hs +++ b/Command.hs @@ -8,8 +8,6 @@ module Command ( command, withParams, - cmdParams, - finalOpt, noRepo, noCommit, noMessages, @@ -47,16 +45,6 @@ command name section desc paramdesc mkparser = withParams :: (CmdParams -> v) -> CmdParamsDesc -> O.Parser v withParams mkseek paramdesc = mkseek <$> cmdParams paramdesc -{- Parser that accepts all non-option params. -} -cmdParams :: CmdParamsDesc -> O.Parser CmdParams -cmdParams paramdesc = O.many (O.argument O.str (O.metavar paramdesc)) - -{- Makes an option parser that is normally required be optional; - - its switch can be given zero or more times, and the last one - - given will be used. -} -finalOpt :: O.Parser a -> O.Parser (Maybe a) -finalOpt = lastMaybe <$$> O.many - {- Indicates that a command doesn't need to commit any changes to - the git-annex branch. -} noCommit :: Command -> Command |