support ssh urls containing "~", and relative user:path
This commit is contained in:
parent
ed593f1f3f
commit
14fe13dc2b
4 changed files with 42 additions and 6 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue