diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-16 00:49:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-16 00:49:09 -0400 |
| commit | 2bb6b02948da8a33b2edcd911fcf3c2597b0ee58 (patch) | |
| tree | 631f0694c7b5a17064eb66862230ec666e3871a8 /git-annex-shell.hs | |
| parent | 84784e2ca1ababf21342cba36f7e65b4c3cd303b (diff) | |
When not run in a git repository, git-annex can still display a usage message, and "git annex version" even works.
Things that sound simple, but are made hard by the Annex monad being built
with the assumption that there will always be a git repo.
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 658eddd77..9a9d2f092 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -79,8 +79,8 @@ builtins = map cmdname cmds builtin :: String -> String -> [String] -> IO () builtin cmd dir params = do checkNotReadOnly cmd - Git.repoAbsPath dir >>= Git.repoFromAbsPath >>= - dispatch (cmd : filterparams params) cmds options header + dispatch (cmd : filterparams params) cmds options header $ + Git.repoAbsPath dir >>= Git.repoFromAbsPath external :: [String] -> IO () external params = do |