fix error msg on curried/uncurried sig mismatch

Author: tsnobip

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