Work around the last of the uncurried issues. Fixes #22.

Author: TheSpyder

.changes/unreleased/Changed-20231219-095815.yaml

@@ -0,0 +1,6 @@
+kind: Added
+body: The `Event` module now includes 2 and 3 argument variants of `fromString` and `fromSymbol`
+  for use ReScript 11 uncurried mode
+time: 2023-12-19T09:58:15.397871+11:00
+custom:
+  GithubIssue: "22"

bsconfig.json

@@ -29,6 +29,5 @@
   "warnings": {
     "number": "A-4-40-41-42-43-44+101-102-103",
     "error": "false"
-  },
-  "uncurried": false
+  }
 }

src/Event.res

@@ -22,9 +22,17 @@
  ")
 type t<'listener, 'ty>
 external fromString: string => t<'a => 'b, 'ty> = "%identity"
+external fromString2: string => t<('a, 'b) => 'c, 'ty> = "%identity"
+external fromString3: string => t<('a, 'b, 'c) => 'd, 'ty> = "%identity"
 external fromSymbol: Js.Types.symbol => t<'a => 'b, 'ty> = "%identity"
+external fromSymbol2: Js.Types.symbol => t<('a, 'b) => 'c, 'ty> = "%identity"
+external fromSymbol3: Js.Types.symbol => t<('a, 'b, 'c) => 'd, 'ty> = "%identity"
 external unsafeToString: t<'a => 'b, 'ty> => string = "%identity"
+external unsafeToString2: t<('a, 'b) => 'c, 'ty> => string = "%identity"
+external unsafeToString3: t<('a, 'b, 'c) => 'd, 'ty> => string = "%identity"
 external unsafeToSymbol: t<'a => 'b, 'ty> => Js.Types.symbol = "%identity"
+external unsafeToSymbol2: t<('a, 'b) => 'c, 'ty> => Js.Types.symbol = "%identity"
+external unsafeToSymbol3: t<('a, 'b, 'c) => 'd, 'ty> => Js.Types.symbol = "%identity"
 type case =
   | String(string)
   | Symbol(Js.Types.symbol)
@@ -40,4 +48,4 @@ let eq = (event1, event2) =>
   | ("string", "string") => Obj.magic(event1) === Obj.magic(event2)
   | ("symbol", "symbol") => Obj.magic(event1) === Obj.magic(event2)
   | _ => false
-  }
+  }

test/module/EventEmitterTestLib.res

@@ -7,6 +7,6 @@ module Emitter1 = {
     let symbol: Event.t<Js.Types.symbol => unit, t> = Event.fromSymbol(uniqueSymbol)
     let text: Event.t<string => unit, t> = Event.fromString("text")
     let integer: Event.t<int => unit, t> = Event.fromString("integer")
-    let textAndInteger: Event.t<(string, int) => unit, t> = Event.fromString("textAndInteger")
+    let textAndInteger: Event.t<(string, int) => unit, t> = Event.fromString2("textAndInteger")
   }
-}
+}