anchor.diff:                          "compaction (database `~s`): the estimated necessary "
                           "disk space is about ~p bytes but the currently available"
                           " disk space is ~p bytes.",
  -                        [GroupId, Db#db.name, SpaceRequired, Free]),
  +                        [GroupId, DbName, SpaceRequired, Free]),
                       false
                   end
               end
  
positive.code:     end.
  
  
  maybe_compact_views(Db, Config) ->
      {ok, _, ok} = couch_db:enum_docs(
          Db,
          fun(#full_doc_info{id = <<"_design/", Id/binary>>}, _, Acc) ->
              maybe_compact_view(Db, Id, Config),
              {ok, Acc};
          (_, _, Acc) ->
              {stop, Acc}
          end, ok, [{start_key, <<"_design/">>}, {end_key_gt, <<"_design0">>}]).
  
  
  maybe_compact_view(#db{name = DbName} = Db, GroupId, Config) ->
      DDocId = <<"_design/", GroupId/binary>>,
      case (catch couch_view:get_group_info(Db, DDocId)) of
      {ok, GroupInfo} ->
          case can_view_compact(Config, Db, GroupId, GroupInfo) of
          true ->
              {ok, CompactPid} = couch_view_compactor:start_compact(DbName, GroupId),
              TimeLeft = compact_time_left(Config),
  
negative.code:             {Frag, SpaceRequired} = frag(GroupInfo),
              ?LOG_DEBUG("Fragmentation for view group `~s` (database `~s`) is "
                  "~p%, estimated space for compaction is ~p bytes.",
                  [GroupId, DbName, Frag, SpaceRequired]),
              case check_frag(Config#config.view_frag, Frag) of
              false ->
                  false;
  