anchor.diff:      {ok, StateName, State}.
   
   %% Internal functions
  --spec spawn_bucket_compactor(binary(), {#config{}, list()}) -> pid().
  -spawn_bucket_compactor(BucketName, Configs) ->
  -    spawn_bucket_compactor(BucketName, Configs, false).
  -
  --spec spawn_bucket_compactor(binary(), {#config{}, list()}, boolean()) -> pid().
  +-spec spawn_bucket_compactor(binary(), {#config{}, list()}, boolean() | view_inhibited) -> pid().
   spawn_bucket_compactor(BucketName, {Config, ConfigProps}, Force) ->
       proc_lib:spawn_link(
         fun () ->
                 case Force of
                     true ->
                         ok;
  -                  false ->
  +                  _ ->
                         %% effectful
                         check_period(Config)
                 end,
  
positive.code:                 tl(Buckets)
          end,
  
      NewState0 = State#state{compactor_pid=undefined,
                              compactor_config=undefined,
                              buckets_to_compact=NewBuckets},
      case NewBuckets of
          [] ->
              ?log_debug("Finished compaction iteration."),
              {next_state, idle, schedule_next_compaction(NewState0)};
          _ ->
              {next_state, compacting, compact_next_bucket(NewState0)}
      end;
  handle_info({'EXIT', Pid, Reason}, StateName,
              #state{running_forced_compactions=Compactions} = State) ->
  
negative.code:                    {important, true},
                     {name, BucketName},
                     {fa, {fun spawn_dbs_compactor/4,
                           [BucketName, Config, Force =:= true, OriginalTarget]}}],
  
                DDocCompactors =
                    case Force =/= view_inhibited of
                        true ->
                            [ [{type, view},
                               {name, <<BucketName/binary, $/, DDocId/binary>>},
                               {important, false},
                               {fa, {fun spawn_view_compactor/5,
                                     [BucketName, DDocId, Config, Force =:= true, OriginalTarget]}}] ||
                                DDocId <- DDocNames ];
                        _ ->
                            []
                    end,
  
                case Config#config.parallel_view_compact of
                    true ->
  