anchor.diff:  -record(forced_compaction, {type :: bucket | bucket_purge | db | view,
                               name :: binary()}).
   
  +-define(MASTER_COMPACTION_INTERVAL, 3600).
  +
   %% API
   start_link() ->
       gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
  
positive.code: 
  -record(state, {kv_compaction :: #compaction_state{},
                  views_compaction :: #compaction_state{},
  
                  %% bucket for which view compaction is inhibited (note
                  %% it's also set when we're running 'uninhibit' views
  
negative.code:                                     [BucketName]),
                            true;
                        false ->
                            bucket_needs_compaction(BucketName, Total, Config)
                    end,
  
                DoCompact orelse exit(normal),
  