anchor.diff:          end
       end.
   
  -can_view_compact(Config, Db, GroupId, GroupInfo) ->
  +can_view_compact(Config, DbName, GroupId, GroupInfo) ->
       case check_period(Config) of
       false ->
           false;
  
positive.code:             {Frag, SpaceRequired} = frag(GroupInfo),
              ?LOG_DEBUG("Fragmentation for view group `~s` (database `~s`) is "
                  "~p%, estimated space for compaction is ~p bytes.",
                  [GroupId, Db#db.name, Frag, SpaceRequired]),
              case check_frag(Config#config.view_frag, Frag) of
              false ->
                  false;
  
negative.code:                         "compaction (database `~s`): the estimated necessary "
                          "disk space is about ~p bytes but the currently available"
                          " disk space is ~p bytes.",
                          [GroupId, DbName, SpaceRequired, Free]),
                      false
                  end
              end
  