Commit 8c90ee68 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add "darcs-all upstreampull"

This pulls from the upstream repos, for those packages which have
upstreams
parent ab90e5fa
......@@ -268,6 +268,23 @@ sub darcsget {
}
}
sub darcsupstreampull {
my $localpath;
my $upstream;
my $line;
for $line (@packages) {
$localpath = $$line{"localpath"};
$upstream = $$line{"upstream"};
if ($upstream ne "-") {
if (-d $localpath) {
darcs ("pull", @_, "--repodir", $localpath, $upstream);
}
}
}
}
sub main {
if (! -d "compiler") {
die "error: darcs-all must be run from the top level of the ghc tree."
......@@ -324,6 +341,10 @@ sub main {
if ($command eq "get") {
darcsget @_;
}
if ($command eq "upstreampull") {
shift;
darcsupstreampull @_;
}
else {
if ($command =~ /^(?:w|wh|wha|what|whats|whatsn|whatsne|whatsnew)$/) {
# Hack around whatsnew failing if there are no changes
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment