mark function curry kind in value mismatch

Author: tsnobip

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

@@ -10,18 +10,11 @@
   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
+    let add: (int, int) => int (curried)
   is not included in
-    let add: (. int, int) => int
+    let add: (. int, int) => int (uncurried)
   /.../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:

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

@@ -11,18 +11,11 @@
   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
+    let add: (int, int) => int (curried)
   is not included in
-    let add: (int, int) => int
+    let add: (int, int) => int (uncurried)
   /.../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:

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

@@ -10,18 +10,11 @@
   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
+    let add: (. int, int) => int (uncurried)
   is not included in
-    let add: (int, int) => int
+    let add: (int, int) => int (curried)
   /.../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:

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

@@ -10,18 +10,11 @@
   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
+    let add: (int, int) => int (uncurried)
   is not included in
-    let add: (. int, int) => int
+    let add: (int, int) => int (curried)
   /.../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:

jscomp/ml/includemod.ml

@@ -537,6 +537,20 @@ let include_err ppf = function
   | Missing_field (id, loc, kind) ->
       fprintf ppf "The %s `%a' is required but not provided" kind ident id;
       show_loc "Expected declaration" ppf loc
+  | Value_descriptions(id, 
+      ({ val_type = { desc = Tlink { desc = Tconstr (Pident {name = "function$"},_,_) }}} as d1), 
+      ({ val_type = { desc = Tarrow _ }} as d2)) ->
+          fprintf ppf
+            "@[<hv 2>Values do not match:@ %a (uncurried)@;<1 -2>is not included in@ %a (curried)@]"
+            (value_description id) d1 (value_description id) d2;
+          show_locs ppf (d1.val_loc, d2.val_loc)
+  | Value_descriptions(id, 
+      ({ val_type = { desc = Tlink { desc = Tarrow _ }}} as d1), 
+      ({ val_type = { desc = Tconstr (Pident {name = "function$"},_,_)}} as d2)) ->
+          fprintf ppf
+            "@[<hv 2>Values do not match:@ %a (curried)@;<1 -2>is not included in@ %a (uncurried)@]"
+            (value_description id) d1 (value_description id) d2;
+          show_locs ppf (d1.val_loc, d2.val_loc)
   | Value_descriptions(id, d1, d2) ->
       fprintf ppf
         "@[<hv 2>Values do not match:@ %a@;<1 -2>is not included in@ %a@]"

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 -> not uncurried
+  | Uncurried -> false