From e5fadb1bbcd0bafc9d2e9c5ded2e644e532baafc Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 8 Jul 2015 17:59:06 -0400
Subject: wip

---
 Command.hs | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'Command.hs')

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
-- 
cgit v1.2.3