From: Ian Lynagh <igloo@earth.li>
Date: Wed, 23 Jul 2008 14:38:04 +0000 (+0000)
Subject: Remove some redundancy in darcs-all
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=f0d822f40cace4bd692a9e61e88c1d86ae7ebb46;p=ghc-hetmet.git

Remove some redundancy in darcs-all
---

diff --git a/darcs-all b/darcs-all
index d25a903..82245fb 100644
--- a/darcs-all
+++ b/darcs-all
@@ -19,13 +19,9 @@ if ($defaultrepo =~ /^...*:/) {
     $defaultrepo_base =~ s#/[^/]+/?$##;
     $defaultrepo_lib = "$defaultrepo_base/packages";
 }
-elsif ($defaultrepo =~ /^\//) {
-    # 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):
+elsif ($defaultrepo =~ /^(\.\.)?\//) {
+    # Local filesystem, either absolute or relative path
+    # (assumes a checked-out tree):
     $defaultrepo_base = $defaultrepo;
     $defaultrepo_lib = "$defaultrepo/libraries";
 }