mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

support ssh urls containing "~", and relative user:path

Browse source
This commit is contained in:
Joey Hess 2010-12-31 21:22:03 -04:00
parent ed593f1f3f
commit 14fe13dc2b
4 changed files with 42 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
git-annex-shell.hs
View file

@ -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 ()