fix(parser): don't add unit argument if arity0 partial application

rescript-lang · Jul 8, 2023 · d50f2e0 · d50f2e0
1 parent e8e1a3d
commit d50f2e0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/jscomp/syntax/src/res_core.ml b/jscomp/syntax/src/res_core.ml
@@ -3612,7 +3612,7 @@ and parseCallExpr p funExpr =
   Parser.expect Rparen p;
   let args =
     match args with
-    | [] ->
+    | [] when not isPartial ->
       let loc = mkLoc startPos p.prevEndPos in
       (* No args -> unit sugar: `foo()` *)
       [

diff --git a/jscomp/syntax/tests/parsing/grammar/expressions/expected/UncurriedByDefault.res.txt b/jscomp/syntax/tests/parsing/grammar/expressions/expected/UncurriedByDefault.res.txt
@@ -172,5 +172,5 @@ type nonrec callback2 =
   (ReactEvent.Mouse.t -> unit as 'u, [ `Has_arity1 ]) function$
 type nonrec callback3 =
   (ReactEvent.Mouse.t -> unit, [ `Has_arity1 ]) function$ as 'callback
-let partialPipe = x |.u ((f ())[@res.partial ][@res.uapp ])
+let partialPipe = x |.u f
 let partialPipe2 = x |.u ((f y)[@res.partial ][@res.uapp ])