anchor.diff:      function LoadJsonFile: Boolean;
       constructor Create(AJsonFile: string; ASilent: Boolean);
       function Failed(message: string): Boolean;
  +    procedure Info(message: string);
     public
       class function Execute(JsonFile, JsonSchemaPath: string; FDistribution, FSilent: Boolean; FCallback: TProjectLogObjectEvent): Boolean;
     end;
  
positive.code:           Result := Failed(msg);
  
          if not TCanonicalLanguageCodeUtils.IsCanonical(Tag, msg, False, False) then
            Result := Failed(msg);
        finally
          Free;
        end;
  
negative.code:           Result := Failed(msg);
  
          if not TCanonicalLanguageCodeUtils.IsCanonical(Tag, msg, False, False) then
            Info(msg);
        finally
          Free;
        end;
  