From 47be4383b714320c9e3f49cc23315101fad5735b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 5 Jan 2012 20:40:31 -0400 Subject: Command data structure tweaking --- Types/Command.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Types/Command.hs') diff --git a/Types/Command.hs b/Types/Command.hs index 5341a4054..3cabf7318 100644 --- a/Types/Command.hs +++ b/Types/Command.hs @@ -33,12 +33,12 @@ type CommandCleanup = Annex Bool {- A command is defined by specifying these things. -} data Command = Command { - cmdnorepo :: Maybe (IO ()), - cmdcheck :: [CommandCheck], + cmdnorepo :: Maybe (IO ()), -- an action to run when not in a repo + cmdcheck :: [CommandCheck], -- check stage cmdname :: String, - cmdparams :: String, - cmdseek :: [CommandSeek], - cmddesc :: String + cmdparamdesc :: String, -- description of params for usage + cmdseek :: [CommandSeek], -- seek stage + cmddesc :: String -- description of command for usage } {- CommandCheck functions can be compared using their unique id. -} -- cgit v1.2.3