summaryrefslogtreecommitdiff
path: root/git-annex-shell.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-12-31 21:22:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-12-31 21:22:03 -0400
commit14fe13dc2b0f39857eeccdc36483d0f4a0d81fdc (patch)
tree3350f51ed5a7894f4842f7c528d597fb42355f9d /git-annex-shell.hs
parented593f1f3f810ae9e456dc233273da23608cea82 (diff)
support ssh urls containing "~", and relative user:path
Diffstat (limited to 'git-annex-shell.hs')
-rw-r--r--git-annex-shell.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/git-annex-shell.hs b/git-annex-shell.hs
index 251acf613..78dd77790 100644
--- a/git-annex-shell.hs
+++ b/git-annex-shell.hs
@@ -60,7 +60,8 @@ builtins = map cmdname cmds
builtin :: String -> String -> [String] -> IO ()
builtin cmd dir params = do
- let gitrepo = Git.repoFromPath dir
+ dir' <- Git.absDir dir
+ let gitrepo = Git.repoFromPath dir'
dispatch gitrepo (cmd:(filterparams params)) cmds commonOptions header
external :: [String] -> IO ()