anchor.diff:  
   spawn_view_index_compactor(BucketName, DDocId,
                              Type, Config, Force, OriginalTarget) ->
  +    Force orelse exit_if_uninhibit_requsted(),
       Parent = self(),
   
       proc_lib:spawn_link(
  
positive.code:     Name = <<Bucket/binary, $/, DDocId/binary>>,
      Compaction = #forced_compaction{type=view, name=Name},
      {reply, ok, maybe_cancel_compaction(Compaction, State)};
  handle_call(Event, _From, State) ->
      ?log_warning("Got unexpected call ~p:~n~p", [Event, State]),
      {reply, ok, State}.
  
negative.code: -include("couch_db.hrl").
  
  %% API
  -export([start_link/0,
           inhibit_view_compaction/2, uninhibit_view_compaction/2]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2,
  