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 /git-annex-shell.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 'git-annex-shell.hs')
-rw-r--r-- | git-annex-shell.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs index 41cb72d7e..328d7b100 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -23,15 +23,15 @@ import qualified Command.SendKey cmds_readonly :: [Command] cmds_readonly = concat - [ Command.ConfigList.command - , Command.InAnnex.command - , Command.SendKey.command + [ Command.ConfigList.def + , Command.InAnnex.def + , Command.SendKey.def ] cmds_notreadonly :: [Command] cmds_notreadonly = concat - [ Command.RecvKey.command - , Command.DropKey.command + [ Command.RecvKey.def + , Command.DropKey.def ] cmds :: [Command] |