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

[cs] add newline after each case value

Dan Korostelev преди 11 години
родител
ревизия
70eac96b67
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      gencs.ml

+ 1 - 1
gencs.ml

@@ -1433,8 +1433,8 @@ let configure gen =
 							in_value := true;
 							expr_s w e;
 							write w ":";
+							newline w;
 						) el;
-						newline w;
 						in_value := false;
 						expr_s w (mk_block e);
 						newline w;