diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-29 15:19:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-29 15:19:05 -0400 |
| commit | f97c783283847c6cc4516673fe638b4d551e671d (patch) | |
| tree | 3d9e96c4803f3310d82683f00c876f1d80c7be8e /GitAnnex.hs | |
| parent | 0d92aca1aabbbeb2d50d91807312ff6039971751 (diff) | |
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.
Diffstat (limited to 'GitAnnex.hs')
| -rw-r--r-- | GitAnnex.hs | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs index 3cd7207d3..c07e727fa 100644 --- a/GitAnnex.hs +++ b/GitAnnex.hs @@ -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] |