diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 16:58:54 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 16:58:54 -0400 |
| commit | 249e0861520a2904f70bf4b79a4ebddc009c3683 (patch) | |
| tree | d5a4bb91ac80ad3fe44ed6b168bfc60ccb60668e /Types | |
| parent | 931f0f7bc6eb1ea6d25dec52e14c584f0cbd4778 (diff) | |
converted fsck's options to optparse-applicative
Global options and seeking and key options are still to be done.
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Command.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Types/Command.hs b/Types/Command.hs index 99920e657..acd662bf3 100644 --- a/Types/Command.hs +++ b/Types/Command.hs @@ -43,7 +43,7 @@ data Command = Command , cmdnocommit :: Bool -- don't commit journalled state changes , cmdnomessages :: Bool -- don't output normal messages , cmdname :: String - , cmdparamdesc :: String -- description of params for usage + , cmdparamdesc :: CmdParamsDesc -- description of params for usage , cmdsection :: CommandSection , cmddesc :: String -- description of command for usage , cmdparser :: CommandParser -- command line parser @@ -54,6 +54,8 @@ data Command = Command - are parsed. -} type CmdParams = [String] +type CmdParamsDesc = String + {- CommandCheck functions can be compared using their unique id. -} instance Eq CommandCheck where a == b = idCheck a == idCheck b |