From 249e0861520a2904f70bf4b79a4ebddc009c3683 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 8 Jul 2015 16:58:54 -0400 Subject: converted fsck's options to optparse-applicative Global options and seeking and key options are still to be done. --- Types/Command.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Types/Command.hs') 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 -- cgit v1.2.3