diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-30 12:01:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-30 12:13:34 -0400 |
| commit | 1b0edc1ab2f3516dc532b0cf4ea39a0af2f6392f (patch) | |
| tree | 2f552619d5f283672c79d405c709661a6046c8ec /git-annex-shell.hs | |
| parent | 96e561bc477bd0a4bbffb769369fabe1e1e1982f (diff) | |
idiomatic elem
Diffstat (limited to 'git-annex-shell.hs')
| -rw-r--r-- | git-annex-shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs index fa2a7f606..fee4091ef 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -46,13 +46,13 @@ main' [] = failure main' ("-c":p) = main' p -- a command can be either a builtin or something to pass to git-shell main' c@(cmd:dir:params) - | elem cmd builtins = builtin cmd dir params + | cmd `elem` builtins = builtin cmd dir params | otherwise = external c main' c@(cmd:_) -- Handle the case of being the user's login shell. It will be passed -- a single string containing all the real parameters. | "git-annex-shell " `isPrefixOf` cmd = main' $ drop 1 $ shellUnEscape cmd - | elem cmd builtins = failure + | cmd `elem` builtins = failure | otherwise = external c builtins :: [String] |