Преглед на файлове

* Add newline after uses clause

Michaël Van Canneyt преди 9 месеца
родител
ревизия
38b5a4cbb7
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      packages/fcl-jsonschema/src/fpjson.schema.codegen.pp

+ 2 - 0
packages/fcl-jsonschema/src/fpjson.schema.codegen.pp

@@ -308,7 +308,9 @@ begin
     Addln('interface');
     Addln('');
     AddLn('uses types;');
+    Addln('');
     EnsureSection(csType);
+    Addln('');
     indent;
     for I := 0 to aData.TypeCount-1 do
       if aData.Types[I].PascalType in [ptSchemaStruct,ptAnonStruct] then