summaryrefslogtreecommitdiff
path: root/git-annex-shell.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-03 21:02:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-03 21:02:29 -0400
commit42259eee9200588f69af2b56557d5d191d426ad0 (patch)
tree7595b3571c787d926b1d66a49e8bdd11cd23e772 /git-annex-shell.hs
parentb27b0d5cd463afcce8a95730a49288edd89eb8b8 (diff)
support git funky remote syntaxes
* Look for dir.git directories the same as git does. * Support remote urls specified as relative paths. * Support non-ssh remote paths that contain tilde expansions.
Diffstat (limited to 'git-annex-shell.hs')
-rw-r--r--git-annex-shell.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs
index aeaadcbf8..e8a744748 100644
--- a/git-annex-shell.hs
+++ b/git-annex-shell.hs
@@ -60,8 +60,8 @@ builtins = map cmdname cmds
builtin :: String -> String -> [String] -> IO ()
builtin cmd dir params = do
- dir' <- Git.absDir dir
- let gitrepo = Git.repoFromPath dir'
+ dir' <- Git.repoAbsPath dir
+ gitrepo <- Git.repoFromAbsPath dir'
dispatch gitrepo (cmd:(filterparams params)) cmds commonOptions header
external :: [String] -> IO ()