fix error msg on curried/uncurried sig mismatch

jscomp/build_tests/super_errors/expected/curried_value_instead_of_uncurried_in_curried_mode.res.expected

@@ -0,0 +1,28 @@
+
+ We've found a bug for you!
+ /.../fixtures/curried_value_instead_of_uncurried_in_curried_mode.res:3:5-5:1
+
+ 1 │ module Foo: {
+ 2 │ let add: (. int, int) => int
+ 3 │ } = {
+ 4 │  let add = (a, b) => a + b
+ 5 │ }
+ 6 │ 
+
+ Signature mismatch:
+ Modules do not match:
+ {
+ let add: (int, int) => int
+}
+ is not included in
+ {
+ let add: (. int, int) => int
+}
+ Values do not match:
+ let add: (int, int) => int
+ is not included in
+ let add: (. int, int) => int
+ /.../fixtures/curried_value_instead_of_uncurried_in_curried_mode.res:2:3-30:
+ Expected declaration
+ /.../fixtures/curried_value_instead_of_uncurried_in_curried_mode.res:4:7-9:
+ Actual declaration

jscomp/build_tests/super_errors/expected/curried_value_instead_of_uncurried_in_uncurried_mode.res.expected

@@ -0,0 +1,29 @@
+
+ We've found a bug for you!
+ /.../fixtures/curried_value_instead_of_uncurried_in_uncurried_mode.res:5:5-8:1
+
+ 3 │ module Foo: {
+ 4 │ let add: (int, int) => int
+ 5 │ } = {
+ 6 │  @@uncurried.swap
+ 7 │  let add = (. a, b) => a + b
+ 8 │ }
+ 9 │ 
+
+ Signature mismatch:
+ Modules do not match:
+ {
+ let add: (. int, int) => int
+}
+ is not included in
+ {
+ let add: (int, int) => int
+}
+ Values do not match:
+ let add: (. int, int) => int
+ is not included in
+ let add: (int, int) => int
+ /.../fixtures/curried_value_instead_of_uncurried_in_uncurried_mode.res:4:3-28:
+ Expected declaration
+ /.../fixtures/curried_value_instead_of_uncurried_in_uncurried_mode.res:7:7-9:
+ Actual declaration

jscomp/build_tests/super_errors/expected/uncurried_value_instead_of_curried_in_curried_mode.res.expected

@@ -0,0 +1,28 @@
+
+ We've found a bug for you!
+ /.../fixtures/uncurried_value_instead_of_curried_in_curried_mode.res:3:5-5:1
+
+ 1 │ module Foo: {
+ 2 │ let add: (int, int) => int
+ 3 │ } = {
+ 4 │  let add = (. a, b) => a + b
+ 5 │ }
+ 6 │ 
+
+ Signature mismatch:
+ Modules do not match:
+ {
+ let add: (. int, int) => int
+}
+ is not included in
+ {
+ let add: (int, int) => int
+}
+ Values do not match:
+ let add: (. int, int) => int
+ is not included in
+ let add: (int, int) => int
+ /.../fixtures/uncurried_value_instead_of_curried_in_curried_mode.res:2:3-28:
+ Expected declaration
+ /.../fixtures/uncurried_value_instead_of_curried_in_curried_mode.res:4:7-9:
+ Actual declaration

jscomp/build_tests/super_errors/expected/uncurried_value_instead_of_curried_in_uncurried_mode.res.expected

@@ -0,0 +1,28 @@
+
+ We've found a bug for you!
+ /.../fixtures/uncurried_value_instead_of_curried_in_uncurried_mode.res:6:5-8:1
+
+ 4 │ @@uncurried.swap
+ 5 │ let add: (. int, int) => int
+ 6 │ } = {
+ 7 │  let add = (a, b) => a + b
+ 8 │ }
+ 9 │ 
+
+ Signature mismatch:
+ Modules do not match:
+ {
+ let add: (int, int) => int
+}
+ is not included in
+ {
+ let add: (. int, int) => int
+}
+ Values do not match:
+ let add: (int, int) => int
+ is not included in
+ let add: (. int, int) => int
+ /.../fixtures/uncurried_value_instead_of_curried_in_uncurried_mode.res:5:3-30:
+ Expected declaration
+ /.../fixtures/uncurried_value_instead_of_curried_in_uncurried_mode.res:7:7-9:
+ Actual declaration

jscomp/build_tests/super_errors/fixtures/curried_value_instead_of_uncurried_in_curried_mode.res

@@ -0,0 +1,5 @@
+module Foo: {
+ let add: (. int, int) => int
+} = {
+ let add = (a, b) => a + b
+}

jscomp/build_tests/super_errors/fixtures/curried_value_instead_of_uncurried_in_uncurried_mode.res

@@ -0,0 +1,8 @@
+@@uncurried
+
+module Foo: {
+ let add: (int, int) => int
+} = {
+ @@uncurried.swap
+ let add = (. a, b) => a + b
+}

jscomp/build_tests/super_errors/fixtures/uncurried_value_instead_of_curried_in_curried_mode.res

@@ -0,0 +1,5 @@
+module Foo: {
+ let add: (int, int) => int
+} = {
+ let add = (. a, b) => a + b
+}

jscomp/build_tests/super_errors/fixtures/uncurried_value_instead_of_curried_in_uncurried_mode.res

@@ -0,0 +1,8 @@
+@@uncurried
+
+module Foo: {
+ @@uncurried.swap
+ let add: (. int, int) => int
+} = {
+ let add = (a, b) => a + b
+}

jscomp/syntax/src/res_uncurried.ml

@@ -8,4 +8,4 @@ let fromDotted ~dotted = function
 let getDotted ~uncurried = function
  | Config.Legacy -> uncurried
  | Swap -> not uncurried
- | Uncurried -> false
+ | Uncurried -> not uncurried