diff options
Diffstat (limited to 'Types/Command.hs')
-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 3187efd17..d012c6e25 100644 --- a/Types/Command.hs +++ b/Types/Command.hs @@ -36,7 +36,7 @@ type CommandCleanup = Annex Bool {- A command is defined by specifying these things. -} data Command = Command { cmdoptions :: [Option] -- command-specific options - , cmdnorepo :: Maybe (IO ()) -- an action to run when not in a repo + , cmdnorepo :: Maybe (CmdParams -> IO ()) -- an action to run when not in a repo , cmdcheck :: [CommandCheck] -- check stage , cmdnocommit :: Bool -- don't commit journalled state changes , cmdnomessages :: Bool -- don't output normal messages @@ -47,6 +47,8 @@ data Command = Command , cmddesc :: String -- description of command for usage } +type CmdParams = [String] + {- CommandCheck functions can be compared using their unique id. -} instance Eq CommandCheck where a == b = idCheck a == idCheck b |