rescript-lang
diff --git a/‎jscomp/core/js_dump.ml
+5-1 b/‎jscomp/core/js_dump.ml
+5-1
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/ErrorHandler.res.js
+1-1 b/‎jscomp/gentype_tests/typescript-react-example/src/ErrorHandler.res.js
+1-1
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/Hooks.res.js
+5-5 b/‎jscomp/gentype_tests/typescript-react-example/src/Hooks.res.js
+5-5
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/ImmutableArray.res.js
+8-8 b/‎jscomp/gentype_tests/typescript-react-example/src/ImmutableArray.res.js
+8-8
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/Records.res.js
+9-9 b/‎jscomp/gentype_tests/typescript-react-example/src/Records.res.js
+9-9
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/TestPromise.res.js
+1-1 b/‎jscomp/gentype_tests/typescript-react-example/src/TestPromise.res.js
+1-1
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/Uncurried.res.js
+3-3 b/‎jscomp/gentype_tests/typescript-react-example/src/Uncurried.res.js
+3-3
diff --git a/‎jscomp/gentype_tests/typescript-react-example/src/nested/Tuples.res.js
+2-2 b/‎jscomp/gentype_tests/typescript-react-example/src/nested/Tuples.res.js
+2-2
diff --git a/‎jscomp/test/Import.js
+5-5 b/‎jscomp/test/Import.js
+5-5
diff --git a/‎jscomp/test/PartialApplicationNoRuntimeCurry.js
+1-1 b/‎jscomp/test/PartialApplicationNoRuntimeCurry.js
+1-1
diff --git a/‎jscomp/test/SafePromises.js
+3-3 b/‎jscomp/test/SafePromises.js
+3-3
diff --git a/‎jscomp/test/UncurriedAlways.js
+1-1 b/‎jscomp/test/UncurriedAlways.js
+1-1
diff --git a/‎jscomp/test/UncurriedExternals.js
+1-1 b/‎jscomp/test/UncurriedExternals.js
+1-1
diff --git a/‎jscomp/test/UntaggedVariants.js
+3-3 b/‎jscomp/test/UntaggedVariants.js
+3-3
diff --git a/‎jscomp/test/a_list_test.js
+4-4 b/‎jscomp/test/a_list_test.js
+4-4
@@ -391,7 +391,11 @@ and pp_function ~return_unit ~async ~is_method ~need_paren ?directive cxt (f : P
                   function_body ?directive ~return_unit cxt f b))
         else
           let cxt =
-            P.paren_group f 1 (fun _ -> formal_parameter_list inner_cxt f l)
+            match l with
+            | [ single ] when arrow ->
+              Ext_pp_scope.ident inner_cxt f single
+            | l ->
+              P.paren_group f 1 (fun _ -> formal_parameter_list inner_cxt f l)
           in
           P.space f;
           if arrow then (