projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FIX #2302: print FastStrings in UTF-8 in error messages
[ghc-hetmet.git]
/
darcs-all
diff --git
a/darcs-all
b/darcs-all
index
046e589
..
d25a903
100644
(file)
--- a/
darcs-all
+++ b/
darcs-all
@@
-11,8
+11,10
@@
chomp $defaultrepo;
my $defaultrepo_base;
my $defaultrepo_lib;
my $defaultrepo_base;
my $defaultrepo_lib;
-if ($defaultrepo =~ /:/) {
+if ($defaultrepo =~ /^...*:/) {
# HTTP or SSH
# HTTP or SSH
+ # Above regex says "at least two chars before the :", to avoid
+ # catching Win32 drives ("C:\").
$defaultrepo_base = $defaultrepo;
$defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
$defaultrepo_base = $defaultrepo;
$defaultrepo_base =~ s#/[^/]+/?$##;
$defaultrepo_lib = "$defaultrepo_base/packages";
@@
-76,11
+78,7
@@
sub darcsall {
chomp $path;
if ($path =~ m#/(.*)/#) {
my $pkg = $1;
chomp $path;
if ($path =~ m#/(.*)/#) {
my $pkg = $1;
- # bootstrapping.* are just copies of other repos; we don't
- # update them directly.
- if ($pkg !~ /bootstrapping/) {
- darcs (@_, "--repodir", "libraries/$pkg");
- }
+ darcs (@_, "--repodir", "libraries/$pkg");
}
else {
die "that pattern can't fail!";
}
else {
die "that pattern can't fail!";