anchor.diff:    TMARSMessageBodyRegistry.Instance.RegisterWriter<TDataSet>(TDataSetWriterJSON
     , function (AType: TRttiType; const AAttributes: TAttributeArray; AMediaType: string): Integer
       begin
  -      Result := TMARSMessageBodyRegistry.AFFINITY_MEDIUM;
  +      Result := TMARSMessageBodyRegistry.AFFINITY_MEDIUM + TMARSMessageBodyRegistry.AFFINITY_LOW;
       end
     );
   
  
positive.code:     end
    , function (AType: TRttiType; const AAttributes: TAttributeArray; AMediaType: string): Integer
      begin
        Result := TMARSMessageBodyRegistry.AFFINITY_MEDIUM;
      end
    );
  
  
negative.code:     end
    , function (AType: TRttiType; const AAttributes: TAttributeArray; AMediaType: string): Integer
      begin
        Result := TMARSMessageBodyRegistry.AFFINITY_MEDIUM + TMARSMessageBodyRegistry.AFFINITY_LOW;
      end
    );
  end;
  