Tweak printing of iline records.

Following from #30

Author: cristianoc

examples/example-project/src/ZZ.res

@@ -19,3 +19,21 @@ module J = {
 }
 
 let z = <J> {React.string("")} {React.string("")} </J>
+
+type inline =
+  | A({x: int, y: string})
+  | B({x: int, y: string})
+  | C({
+      x: int,
+      y: string,
+      z: string,
+      w: string,
+      x0: string,
+      q1: string,
+      q2: string,
+      q3: string,
+      q4: string,
+    })
+  | D({x: int, y: string})
+  | E({x: int, y: string})
+  | F

src/rescript-editor-support/PrintType.re

@@ -212,7 +212,9 @@ let print_constructor = (loop, {Types.cd_id, cd_args, cd_res}) => {
     | Cstr_tuple([]) => Pretty.empty
     | Cstr_record(labels) =>
       str("({")
-      +++ indentGroup(break +++ commadList(print_attr, labels) +++ dedent)
+      +++ indentGroup(
+            indentGroup(break +++ commadList(print_attr, labels) +++ dedent),
+          )
       +++ str("})")
     | Cstr_tuple(args) => tupleList(args, loop)
     }