From 6edbdec0d538d3e0d7dc07757373d6a69c3743bb Mon Sep 17 00:00:00 2001 From: Christoph Knittel Date: Sun, 11 Aug 2024 17:23:44 +0200 Subject: [PATCH] Remove @@uncurried --- js/src/js_promise.res | 3 +-- js/src/js_promise2.res | 3 +-- js/src/jsx.res | 4 ---- js/src/jsxDOM.res | 4 ---- js/src/jsxEvent.res | 4 ---- js/src/jsxPPXReactSupport.res | 2 -- 6 files changed, 2 insertions(+), 18 deletions(-) diff --git a/js/src/js_promise.res b/js/src/js_promise.res index ee69304..9c40ab1 100644 --- a/js/src/js_promise.res +++ b/js/src/js_promise.res @@ -44,8 +44,7 @@ type error */ @new -external make: ((~resolve: 'a => unit, ~reject: exn => unit) => unit) => promise<'a> = - "Promise" +external make: ((~resolve: 'a => unit, ~reject: exn => unit) => unit) => promise<'a> = "Promise" /* `make (fun resolve reject -> .. )` */ @val @scope("Promise") external resolve: 'a => promise<'a> = "resolve" diff --git a/js/src/js_promise2.res b/js/src/js_promise2.res index 797318b..5b99b9b 100644 --- a/js/src/js_promise2.res +++ b/js/src/js_promise2.res @@ -16,8 +16,7 @@ let catch: (promise<'a>, error => promise<'a>) => promise<'a> = %raw(` `) @new -external make: ((~resolve: 'a => unit, ~reject: exn => unit) => unit) => promise<'a> = - "Promise" +external make: ((~resolve: 'a => unit, ~reject: exn => unit) => unit) => promise<'a> = "Promise" @val @scope("Promise") external resolve: 'a => promise<'a> = "resolve" @val @scope("Promise") external reject: exn => promise<'a> = "reject" diff --git a/js/src/jsx.res b/js/src/jsx.res index 70f3c67..5922d4a 100644 --- a/js/src/jsx.res +++ b/js/src/jsx.res @@ -1,7 +1,3 @@ -/*** Internal: use Jsx directly. */ - -@@uncurried - type element type ref diff --git a/js/src/jsxDOM.res b/js/src/jsxDOM.res index e474be3..df0954d 100644 --- a/js/src/jsxDOM.res +++ b/js/src/jsxDOM.res @@ -22,10 +22,6 @@ * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/*** Internal: use JsxDOM directly. */ - -@@uncurried - type style = JsxDOMStyle.t type domRef diff --git a/js/src/jsxEvent.res b/js/src/jsxEvent.res index 0d67f22..d8de1b5 100644 --- a/js/src/jsxEvent.res +++ b/js/src/jsxEvent.res @@ -22,10 +22,6 @@ * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/*** Internal: use JsxEvent directly. */ - -@@uncurried - type synthetic<'a> module MakeEventWithType = ( diff --git a/js/src/jsxPPXReactSupport.res b/js/src/jsxPPXReactSupport.res index 483b28c..824203d 100644 --- a/js/src/jsxPPXReactSupport.res +++ b/js/src/jsxPPXReactSupport.res @@ -34,8 +34,6 @@ } ) -@@uncurried // Can't move this up as @inline not working with uncurried - @module("react") external createElement: (Jsx.component<'props>, 'props) => Jsx.element = "createElement"