From 2bb6b02948da8a33b2edcd911fcf3c2597b0ee58 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 16 Nov 2011 00:49:09 -0400 Subject: 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. --- git-annex-shell.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'git-annex-shell.hs') 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 -- cgit v1.2.3