diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-02 02:40:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-02 02:40:43 -0400 |
| commit | bcb72ce0f2623a77d18f8064738ba26661dad762 (patch) | |
| tree | 89d9535c599ad9cd628116860139efc85ce0623d /git-annex-shell.hs | |
| parent | f2cc87860ccb4ccb4a51dd9d255717a0e749fe76 (diff) | |
tweak
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 |