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).

1 files changed, 4 insertions, 1 deletions

diff --git a/script/public-inbox-index b/script/public-inbox-index
index dc9bdde1..56df5bfe 100755
--- 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);
+        }
 }