if ($defaultrepo =~ /:/) {
# HTTP or SSH
$defaultrepo_base = $defaultrepo;
- $defaultrepo_base =~ s#/ghc$##;
+ $defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
}
elsif ($defaultrepo =~ /^\//) {
- # Local filesystem (assumes a checked-out tree):
+ # Local filesystem, absolute path (assumes a checked-out tree):
+ $defaultrepo_base = $defaultrepo;
+ $defaultrepo_lib = "$defaultrepo/libraries";
+}
+elsif ($defaultrepo =~ /^..\//) {
+ # Local filesystem, relative path (assumes a checked-out tree):
$defaultrepo_base = $defaultrepo;
$defaultrepo_lib = "$defaultrepo/libraries";
}
# --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;
}