if ($defaultrepo =~ /:/) {
# HTTP or SSH
$defaultrepo_base = $defaultrepo;
- $defaultrepo_base =~ s#/ghc$##;
+ $defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
}
elsif ($defaultrepo =~ /^\//) {
# --extra says we grab the extra libs with 'get'. It has no effect on
# the other commands.
my $extra = 0;
-# --complete gets passed onto darcs get
-my $complete = 0;
# --nofib/--testsuite tell get to also grab the respective repos.
# They have no effect on the other commands.
my $nofib = 0;
sub darcsget {
my $r_flags;
- if (! $complete && ! grep /(?:--complete|--partial)/, @_) {
+ if (! grep /(?:--complete|--partial)/, @_) {
warning("adding --partial, to override use --complete");
$r_flags = [@_, "--partial"];
}
if ($arg eq "-q") {
$verbose = 0;
}
- elsif ($arg eq "--complete") {
- $complete = 1;
- }
elsif ($arg eq "--extra") {
$extra = 1;
}