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/Fsck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command/Fsck.hs') diff --git a/Command/Fsck.hs b/Command/Fsck.hs index d025095b1..5d2e2ee50 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -20,8 +20,8 @@ import Utility.DataUnits import Utility.FileMode import Config -command :: [Command] -command = [Command "fsck" paramPaths defaultChecks seek "check for problems"] +def :: [Command] +def = [command "fsck" paramPaths seek "check for problems"] seek :: [CommandSeek] seek = [withNumCopies start] -- cgit v1.2.3