X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=sync-all;h=7ccc71d221650a8c0fba70b9310a52c2cb223f63;hp=06c183af255fea7d8d86f4e4311add453bf90498;hb=6f66d02c9654fc037db0582857acdcc15e0fd1d3;hpb=11b33eaeaef39fcba8ee9258213068ed90362aa7

diff --git a/sync-all b/sync-all
index 06c183a..7ccc71d 100755
--- a/sync-all
+++ b/sync-all
@@ -389,6 +389,10 @@ sub scmall {
             scm ($localpath, $scm, "grep", @args)
                 unless $scm eq "darcs";
         }
+        elsif ($command =~ /^clean$/) {
+            scm ($localpath, $scm, "clean", @args)
+                unless $scm eq "darcs";
+        }
         elsif ($command =~ /^reset$/) {
             scm ($localpath, $scm, "reset", @args)
                 unless $scm eq "darcs";
@@ -426,6 +430,7 @@ Supported commands:
  * remote rm <branch-name>
  * remote set-url [--push] <branch-name>
  * grep
+ * clean
  * reset
  * config