diff options
author | 2011-07-15 03:12:05 -0400 | |
---|---|---|
committer | 2011-07-15 03:12:05 -0400 | |
commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /git-annex-shell.hs | |
parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) |
hlint tweaks
Did all sources except Remotes/* and Command/*
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 a64552c72..29ac63aea 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -58,10 +58,10 @@ builtins = map cmdname cmds builtin :: String -> String -> [String] -> IO () builtin cmd dir params = Git.repoAbsPath dir >>= Git.repoFromAbsPath >>= - dispatch (cmd:(filterparams params)) cmds commonOptions header + dispatch (cmd : filterparams params) cmds commonOptions header external :: [String] -> IO () -external params = do +external params = unlessM (boolSystem "git-shell" $ map Param $ "-c":filterparams params) $ error "git-shell failed" |