diff options
Diffstat (limited to 'git-annex-shell.hs')
-rw-r--r-- | git-annex-shell.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs index 940db71c3..55f34e102 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -58,10 +58,9 @@ builtins :: [String] builtins = map cmdname cmds builtin :: String -> String -> [String] -> IO () -builtin cmd dir params = do - dir' <- Git.repoAbsPath dir - gitrepo <- Git.repoFromAbsPath dir' - dispatch gitrepo (cmd:(filterparams params)) cmds commonOptions header +builtin cmd dir params = + Git.repoAbsPath dir >>= Git.repoFromAbsPath >>= + dispatch (cmd:(filterparams params)) cmds commonOptions header external :: [String] -> IO () external params = do |