Example where in uncurried by default nested types are formatted incorrectly.

Author: cristianoc

res_syntax/tests/printer/expr/UncurriedByDefault.res

@@ -31,6 +31,9 @@ type upp = (. ()) => (. ()) => int
 type uu2 = (. unit, unit) => unit
 type up2 = (. (), ()) => unit
 
+type cnested = (string => unit) => unit
+type unested = (. (. string) => unit) => unit
+
 let pipe = a->foo(. b, c)
 
 @@uncurried
@@ -69,4 +72,7 @@ type upp = () => () => int
 type uu2 = (unit, unit) => unit
 type up2 = ((), ()) => unit
 
+type cnested = (. (. string) => unit) => unit
+type unested = (string => unit) => unit
+
 let pipe = a->foo(b, c)

res_syntax/tests/printer/expr/expected/UncurriedByDefault.res.txt

@@ -31,6 +31,9 @@ type upp = (. ()) => (. ()) => int
 type uu2 = (. unit, unit) => unit
 type up2 = (. unit, unit) => unit
 
+type cnested = (string => unit) => unit
+type unested = (. (. string) => unit) => unit
+
 let pipe = a->foo(. b, c)
 
 @@uncurried
@@ -69,4 +72,7 @@ type upp = () => () => int
 type uu2 = (unit, unit) => unit
 type up2 = (unit, unit) => unit
 
+type cnested = (. (. string) => unit) => unit
+type unested = string => unit => unit
+
 let pipe = a->foo(b, c)