summaryrefslogtreecommitdiff
path: root/darcs-all
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2007-04-30 10:16:12 +0000
committerIan Lynagh <igloo@earth.li>2007-04-30 10:16:12 +0000
commit933e8d0116097567ff05e45713da0dbd57899fe1 (patch)
tree1f32ab4633a2a9446aa34705b3761e1576e8abd9 /darcs-all
parent56bf673097811e7fa362ae3741f6ff4ea872475b (diff)
downloadhaskell-933e8d0116097567ff05e45713da0dbd57899fe1.tar.gz
Look for -q in the darcs flags as well as the darcs-all flags
Diffstat (limited to 'darcs-all')
-rw-r--r--darcs-all5
1 files changed, 5 insertions, 0 deletions
diff --git a/darcs-all b/darcs-all
index 70cf16506e..4e67683355 100644
--- a/darcs-all
+++ b/darcs-all
@@ -124,6 +124,8 @@ sub main {
while ($#_ ne -1) {
my $arg = shift;
+ # We handle -q here as well as lower down as we need to skip over it
+ # if it comes before the darcs command
if ($arg eq "-q") {
$verbose = 0;
}
@@ -138,6 +140,9 @@ sub main {
}
else {
unshift @_, $arg;
+ if (grep /^-q$/, @_) {
+ $verbose = 0;
+ }
last;
}
}