diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-30 10:16:12 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-30 10:16:12 +0000 |
commit | 933e8d0116097567ff05e45713da0dbd57899fe1 (patch) | |
tree | 1f32ab4633a2a9446aa34705b3761e1576e8abd9 /darcs-all | |
parent | 56bf673097811e7fa362ae3741f6ff4ea872475b (diff) | |
download | haskell-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-all | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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; } } |