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/Lock.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command/Lock.hs') diff --git a/Command/Lock.hs b/Command/Lock.hs index 8f0bd78eb..329fd3eff 100644 --- a/Command/Lock.hs +++ b/Command/Lock.hs @@ -12,8 +12,8 @@ import Command import qualified Annex.Queue import Backend -command :: [Command] -command = [Command "lock" paramPaths defaultChecks seek "undo unlock command"] +def :: [Command] +def = [command "lock" paramPaths seek "undo unlock command"] seek :: [CommandSeek] seek = [withFilesUnlocked start, withFilesUnlockedToBeCommitted start] -- cgit v1.2.3