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.
This commit is contained in:
Joey Hess 2011-10-29 15:19:05 -04:00
parent 0d92aca1aa
commit f97c783283
40 changed files with 154 additions and 143 deletions

View file

@ -54,38 +54,38 @@ import qualified Command.Version
cmds :: [Command]
cmds = concat
[ Command.Add.command
, Command.Get.command
, Command.Drop.command
, Command.Move.command
, Command.Copy.command
, Command.Unlock.command
, Command.Lock.command
, Command.Init.command
, Command.Describe.command
, Command.InitRemote.command
, Command.Unannex.command
, Command.Uninit.command
, Command.PreCommit.command
, Command.Trust.command
, Command.Untrust.command
, Command.Semitrust.command
, Command.AddUrl.command
, Command.FromKey.command
, Command.DropKey.command
, Command.SetKey.command
, Command.Fix.command
, Command.Fsck.command
, Command.Unused.command
, Command.DropUnused.command
, Command.Find.command
, Command.Whereis.command
, Command.Merge.command
, Command.Status.command
, Command.Migrate.command
, Command.Map.command
, Command.Upgrade.command
, Command.Version.command
[ Command.Add.def
, Command.Get.def
, Command.Drop.def
, Command.Move.def
, Command.Copy.def
, Command.Unlock.def
, Command.Lock.def
, Command.Init.def
, Command.Describe.def
, Command.InitRemote.def
, Command.Unannex.def
, Command.Uninit.def
, Command.PreCommit.def
, Command.Trust.def
, Command.Untrust.def
, Command.Semitrust.def
, Command.AddUrl.def
, Command.FromKey.def
, Command.DropKey.def
, Command.SetKey.def
, Command.Fix.def
, Command.Fsck.def
, Command.Unused.def
, Command.DropUnused.def
, Command.Find.def
, Command.Whereis.def
, Command.Merge.def
, Command.Status.def
, Command.Migrate.def
, Command.Map.def
, Command.Upgrade.def
, Command.Version.def
]
options :: [Option]