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:
parent
0d92aca1aa
commit
f97c783283
40 changed files with 154 additions and 143 deletions
64
GitAnnex.hs
64
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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue