anchor.diff:      %% effectful
       ensure_can_db_compact(DbName, SizeInfo),
   
  -    Force orelse get_kv_token(),
  -
       ?log_info("Compacting `~s' (~p)", [DbName, Options]),
       Ret = case VBucket of
                 master ->
  
positive.code:               DDocNames = ddoc_names(BucketName),
                DDocNames =/= [] orelse exit(normal),
  
                %% for non-parallel view compaction grab token here and set Force=true
                %% for docs compactors to prevent kv compaction from interrupting us
                %% between docs
                Config#config.parallel_view_compact orelse get_kv_token(),
  
                Compactors = get_view_compactors(BucketName, DDocNames, Config, true),
                misc:wait_for_process(chain_compactors(Compactors), infinity)
        end).
  
  
negative.code:                                     scheduled
                              end,
  
                {Options, SafeViewSeqs} =
                    case Config#config.do_purge of
                        true ->
  