diff options
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" |