index: --compact respects --sequential-shard

Since the --compact switch works on Xapian shards,
it makes sense that --sequential-shard affects our
usage of xapian-compact(1).

diff --git a/script/public-inbox-index b/script/public-inbox-index
index dc9bdde1408228e1a5bab3ebef99b28848e751dc..56df5bfec6faed0a9338c88cecf5230607dcf3a9 100755 (executable)
--- a/script/public-inbox-index
+++ b/script/public-inbox-index
@@ -83,5 +83,8 @@ EOL
                $ibx_opt = { %$opt, sequentialshard => $v };
        }
        PublicInbox::Admin::index_inbox($ibx, undef, $ibx_opt);
-       PublicInbox::Xapcmd::run($ibx, 'compact', $compact_opt) if $compact_opt;
+       if ($compact_opt) {
+               local $compact_opt->{jobs} = 0 if $ibx_opt->{sequentialshard};
+               PublicInbox::Xapcmd::run($ibx, 'compact', $compact_opt);
+       }
 }