Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/7d1216ab9b7e80a860de0498854883761d6e7d33 >--------------------------------------------------------------- commit 7d1216ab9b7e80a860de0498854883761d6e7d33 Author: Simon Marlow <marlo...@gmail.com> Date: Fri Dec 21 15:06:11 2012 +0000 make "./sync-all -r <path> remote set-url origin" work >--------------------------------------------------------------- sync-all | 10 ++++++++-- 1 files changed, 8 insertions(+), 2 deletions(-) diff --git a/sync-all b/sync-all index ce61346..0b29903 100755 --- a/sync-all +++ b/sync-all @@ -417,15 +417,21 @@ sub scmall { } elsif ($command eq "remote") { my @scm_args; + my $rpath; $ignore_failure = 1; + if ($remotepath eq '-') { + $rpath = "$repo_base/$localpath"; + } else { + $rpath = $path; + } if ($subcommand eq 'add') { - @scm_args = ("remote", "add", $branch_name, $path); + @scm_args = ("remote", "add", $branch_name, $rpath); } elsif ($subcommand eq 'rm') { @scm_args = ("remote", "rm", $branch_name); } elsif ($subcommand eq 'set-branches') { @scm_args = ("remote", "set-branches", $branch_name); } elsif ($subcommand eq 'set-url') { - @scm_args = ("remote", "set-url", $branch_name, $path); + @scm_args = ("remote", "set-url", $branch_name, $rpath); } scm ($localpath, $scm, @scm_args, @args); } _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
