From f97c783283847c6cc4516673fe638b4d551e671d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Oct 2011 15:19:05 -0400 Subject: clean up check selection code This new approach allows filtering out checks from the default set that are not appropriate for a command, rather than having to list every check that is appropriate. It also reduces some boilerplate. Haskell does not define Eq for functions, so I had to go a long way around with each check having a unique id. Meh. --- Command/Status.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command/Status.hs') diff --git a/Command/Status.hs b/Command/Status.hs index df79d4a7f..b5f4956db 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -38,8 +38,8 @@ data StatInfo = StatInfo -- a state monad for running Stats in type StatState = StateT StatInfo Annex -command :: [Command] -command = [Command "status" paramNothing defaultChecks seek +def :: [Command] +def = [command "status" paramNothing seek "shows status information about the annex"] seek :: [CommandSeek] -- cgit v1.2.3