Simplify interface by using Rescript Core Map

Author: mirko-plowtech

examples/BasicUsage.res

@@ -37,24 +37,16 @@ module ReactRestate = {
   type action = Tick | Reset
   type state = {elapsed: int}
   type deferredAction = ScheduleNextTick
-  module DeferredAction: Restate.HasDeferredAction with type t = deferredAction = {
-      type t = deferredAction
-      let variantId = action =>
-        switch action {
-        | ScheduleNextTick => "ScheduleNextTick"
-      }
-    }
-  module RestateReducer = Restate.MakeReducer(DeferredAction)
   let reducer = (state, action) =>
     switch action {
     | Tick =>
-      RestateReducer.UpdateWithDeferred(
+      Restate.UpdateWithDeferred(
         {elapsed: state.elapsed + 1},
         ScheduleNextTick
       )
-    | Reset => RestateReducer.Update({elapsed: 0})
+    | Reset => Restate.Update({elapsed: 0})
     }
-  let scheduler: (RestateReducer.self<state, action>, deferredAction) => option<unit=>unit> = 
+  let scheduler: (Restate.self<state, action, 'deferredAction>, deferredAction) => option<unit=>unit> = 
     (self, action) =>
         switch action {
         | ScheduleNextTick =>
@@ -67,7 +59,7 @@ module ReactRestate = {
         }
   @react.component
   let make = () => {
-    let (state, send, _defer) = RestateReducer.useReducerWithMapState(reducer, scheduler, () => {elapsed: 0})
+    let (state, send, _defer) = Restate.useReducerWithMapState(reducer, scheduler, () => {elapsed: 0})
     React.useEffect0(() => {
       send(Tick)
       None

examples/Counter_SideEffects.res

@@ -50,29 +50,21 @@ module ReactRestate = {
     type deferredAction =
       | LogIncrement
       | LogDecrement
-    module DeferredAction: Restate.HasDeferredAction with type t = deferredAction = {
-      type t = deferredAction
-      let variantId = action =>
-        switch action {
-        | LogIncrement => "LogIncrement"
-        | LogDecrement => "LogDecrement"
-      }
-    }
-    module RestateReducer = Restate.MakeReducer(DeferredAction)
+
     let reducer = (state, action) => 
      switch action {
        | Increment =>
-         RestateReducer.UpdateWithDeferred(
+         Restate.UpdateWithDeferred(
            state + 1,
            LogIncrement,
          )
        | Decrement =>
-         RestateReducer.UpdateWithDeferred(
+         Restate.UpdateWithDeferred(
            state - 1,
            LogDecrement,
          )
        }
-    let scheduler: (RestateReducer.self<state, action>, deferredAction) => option<unit=>unit> = 
+    let scheduler: (Restate.self<state, action, deferredAction>, deferredAction) => option<unit=>unit> = 
       (self, deferredAction) =>
         switch deferredAction {
         | LogIncrement =>
@@ -86,7 +78,7 @@ module ReactRestate = {
         }
     @react.component
     let make = () => {
-      let (state, send, _defer) = RestateReducer.useReducer(reducer, scheduler, 0)
+      let (state, send, _defer) = Restate.useReducer(reducer, scheduler, 0)
       <div>
         {state->React.int}
         <button onClick={_ => send(Decrement)}> {"-"->React.string} </button>

src/Internal_Iterator.res

@@ -0,0 +1,20 @@
+type t<'a>
+
+type value<'a> = {
+  done: bool,
+  value: option<'a>,
+}
+
+@send external next: t<'a> => value<'a> = "next"
+external toArray: t<'a> => array<'a> = "Array.from"
+external toArrayWithMapper: (t<'a>, 'a => 'b) => array<'b> = "Array.from"
+
+let forEach = (iterator, f) => {
+  let iteratorDone = ref(false)
+
+  while !iteratorDone.contents {
+    let {done, value} = iterator->next
+    f(value)
+    iteratorDone := done
+  }
+}

src/Internal_Map.res

@@ -0,0 +1,20 @@
+type t<'k, 'v> = Js.Map.t<'k, 'v>
+
+@new external make: unit => t<'k, 'v> = "Map"
+@new external fromArray: array<('k, 'v)> => t<'k, 'v> = "Map"
+
+@get external size: t<'k, 'v> => int = "size"
+
+@send external clear: t<'k, 'v> => unit = "clear"
+
+@send external forEach: (t<'k, 'v>, 'v => unit) => unit = "forEach"
+@send external forEachWithKey: (t<'k, 'v>, ('v, 'k) => unit) => unit = "forEach"
+
+@send external get: (t<'k, 'v>, 'k) => option<'v> = "get"
+@send external has: (t<'k, 'v>, 'k) => bool = "has"
+@send external set: (t<'k, 'v>, 'k, 'v) => unit = "set"
+@send external delete: (t<'k, 'v>, 'k) => bool = "delete"
+
+@send external keys: t<'k, 'v> => Internal_Iterator.t<'k> = "keys"
+@send external values: t<'k, 'v> => Internal_Iterator.t<'v> = "values"
+@send external entries: t<'k, 'v> => Internal_Iterator.t<('k, 'v)> = "entries"