@colisweb/rescript-toolkit 5.16.0 → 5.16.2

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "5.16.0",
+  "version": "5.16.2",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",

package/src/form/Reform.res

@@ -157,7 +157,9 @@ module Make = (Config: Config) => {
           ?className
           onSubmit={event => {
             ReactEvent.Synthetic.preventDefault(event)
-            form.submit()
+            if !form.isSubmitting {
+              form.submit()
+            }
           }}>
           children
           <Toolkit__Ui_VisuallyHidden>
@@ -195,25 +197,27 @@ module Make = (Config: Config) => {
       (state, action) => {
         switch action {
         | Submit =>
-          UpdateWithSideEffects(
-            {...state, formState: Submitting},
-            self => {
-              onSubmit({
-                send: self.send,
-                state: self.state,
-                raiseSubmitFailed: error => self.send(RaiseSubmitFailed(error)),
-              })
-              ->Promise.tap(x =>
-                switch x {
-                | Ok(_) => self.send(SetFormState(SubmitSucceed))
-                | Error(error) => self.send(SetFormState(SubmitFailed(Some(error))))
-                }
+          state.formState == Submitting
+            ? NoUpdate
+            : UpdateWithSideEffects(
+                {...state, formState: Submitting},
+                self => {
+                  onSubmit({
+                    send: self.send,
+                    state: self.state,
+                    raiseSubmitFailed: error => self.send(RaiseSubmitFailed(error)),
+                  })
+                  ->Promise.tap(x =>
+                    switch x {
+                    | Ok(_) => self.send(SetFormState(SubmitSucceed))
+                    | Error(error) => self.send(SetFormState(SubmitFailed(Some(error))))
+                    }
+                  )
+                  ->ignore
+
+                  None
+                },
               )
-              ->ignore
-
-              None
-            },
-          )
         | TrySubmit =>
           SideEffects(
             self => {