anchor.diff:                     {important, true},
                      {name, BucketName},
                      {fa, {fun spawn_dbs_compactor/4,
  -                         [BucketName, Config, Force, OriginalTarget]}}],
  +                         [BucketName, Config, Force =:= true, OriginalTarget]}}],
  +
                 DDocCompactors =
  -                  [ [{type, view},
  -                     {name, <<BucketName/binary, $/, DDocId/binary>>},
  -                     {important, false},
  -                     {fa, {fun spawn_view_compactor/5,
  -                           [BucketName, DDocId, Config, Force, OriginalTarget]}}] ||
  -                      DDocId <- DDocNames ],
  +                  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 ->
  
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:     {ok, StateName, State}.
  
  %% Internal functions
  -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;
                    _ ->
                        %% effectful
                        check_period(Config)
                end,
  