Issues with outcome printer and arity0

cristianoc · cristianoc · commit fb2a21b64dab · 2022-05-31T12:51:24.000+02:00
Added a couple of examples.
diff --git a/tests/oprint/expected/oprint.resi.txt b/tests/oprint/expected/oprint.resi.txt
@@ -179,6 +179,8 @@ module Js: {
 }
 type arity0 = (.) => unit
 type arity0b = (.) => int
+type arity0c = Js.Fn.arity0<Js.Fn.arity0<array<int>>>
+type arity0d = (. unit) => unit
 type arity1 = (. int) => int
 type arity2 = (. int, int) => int
 type arity3 = (. int, int, int) => int
diff --git a/tests/oprint/oprint.res b/tests/oprint/oprint.res
@@ -232,6 +232,8 @@ module Js = {
 
 type arity0 = Js.Fn.arity0<unit>
 type arity0b = Js.Fn.arity0<int>
+type arity0c = Js.Fn.arity0<Js.Fn.arity0<array<int>>>
+type arity0d = Js.Fn.arity0<unit => unit>
 type arity1 = Js.Fn.arity1<(int) => int>
 type arity2 = Js.Fn.arity2<(int, int) => int>
 type arity3 = Js.Fn.arity3<(int, int, int) => int>
@@ -340,3 +342,4 @@ let f = (~x=?, ~y as _) => x
 type call = CleanStart
 
 let f = (~a=1) => 1
+

Original file line number	Diff line number	Diff line change
`@@ -179,6 +179,8 @@ module Js: {`
`179`	`179`	`}`
`180`	`180`	`type arity0 = (.) => unit`
`181`	`181`	`type arity0b = (.) => int`
	`182`	`+type arity0c = Js.Fn.arity0<Js.Fn.arity0<array<int>>>`
	`183`	`+type arity0d = (. unit) => unit`
`182`	`184`	`type arity1 = (. int) => int`
`183`	`185`	`type arity2 = (. int, int) => int`
`184`	`186`	`type arity3 = (. int, int, int) => int`