fix: make auto retry value field mandatory

src/screens/Developer/APIKeys/DeveloperUtils.res

@@ -192,7 +192,7 @@ let maxAutoRetries = FormRenderer.makeFieldInfo(
   ~name="max_auto_retries_enabled",
   ~placeholder="Enter number of max auto retries",
   ~customInput=InputFields.textInput(~autoComplete="off"),
-  ~isRequired=false,
+  ~isRequired=true,
 )
 
 module ErrorUI = {

src/screens/Developer/PaymentSettings/PaymentSettings.res

@@ -292,7 +292,7 @@ module CollectDetails = {
 
 module AutoRetries = {
   @react.component
-  let make = () => {
+  let make = (~setCheckMaxAutoRetry) => {
     open FormRenderer
     open DeveloperUtils
     open LogicUtils
@@ -307,6 +307,9 @@ module AutoRetries = {
 
     if !isAutoRetryEnabled {
       form.change("max_auto_retries_enabled", JSON.Encode.null->Identity.genericTypeToJson)
+      setCheckMaxAutoRetry(_ => false)
+    } else {
+      setCheckMaxAutoRetry(_ => true)
     }
 
     <>
@@ -352,6 +355,7 @@ let make = (~webhookOnly=false, ~showFormOnly=false, ~profileId="") => {
   let (busiProfieDetails, setBusiProfie) = React.useState(_ => businessProfileDetails)
 
   let (screenState, setScreenState) = React.useState(_ => PageLoaderWrapper.Loading)
+  let (checkMaxAutoRetry, setCheckMaxAutoRetry) = React.useState(_ => true)
   let (enableCustomHttpHeaders, setCustomHttpHeaders) = React.useState(_ => false)
   let bgClass = webhookOnly ? "" : "bg-white dark:bg-jp-gray-lightgray_background"
   let fetchBusinessProfiles = BusinessProfileHook.useFetchBusinessProfiles()
@@ -376,9 +380,11 @@ let make = (~webhookOnly=false, ~showFormOnly=false, ~profileId="") => {
 
   let fieldsToValidate = () => {
     let defaultFieldsToValidate =
-      [WebhookUrl, ReturnUrl, MaxAutoRetries]->Array.filter(urlField =>
-        urlField === WebhookUrl || !webhookOnly
-      )
+      [
+        WebhookUrl,
+        ReturnUrl,
+        checkMaxAutoRetry ? MaxAutoRetries : UnknownValidateFields(""),
+      ]->Array.filter(urlField => urlField === WebhookUrl || !webhookOnly)
     defaultFieldsToValidate
   }
 
@@ -521,7 +527,7 @@ let make = (~webhookOnly=false, ~showFormOnly=false, ~profileId="") => {
                     />
                   </DesktopRow>
                 </RenderIf>
-                <AutoRetries />
+                <AutoRetries setCheckMaxAutoRetry />
                 <ReturnUrl />
                 <WebHook enableCustomHttpHeaders setCustomHttpHeaders />
                 <DesktopRow>

src/screens/Settings/MerchantAccountUtils.res

@@ -48,7 +48,10 @@ let parseBussinessProfileJson = (profileRecord: profileEntity) => {
   )
 
   profileInfo->setOptionBool("is_auto_retries_enabled", is_auto_retries_enabled)
-  profileInfo->setOptionInt("max_auto_retries_enabled", max_auto_retries_enabled)
+  profileInfo->setOptionString(
+    "max_auto_retries_enabled",
+    max_auto_retries_enabled->getOptionStringFromInt,
+  )
 
   profileInfo->setDictNull("webhook_url", webhook_details.webhook_url)
   profileInfo->setOptionString("webhook_version", webhook_details.webhook_version)
@@ -362,14 +365,6 @@ let checkValueChange = (~initialDict, ~valuesDict) => {
   key->Option.isSome || updatedKeys > initialKeys
 }
 
-let validateEmptyValue = (key, errors) => {
-  switch key {
-  | ReturnUrl =>
-    Dict.set(errors, key->validationFieldsMapper, "Please enter a return url"->JSON.Encode.string)
-  | _ => ()
-  }
-}
-
 let validateEmptyArray = (key, errors, arrayValue) => {
   switch key {
   | AuthetnticationConnectors(_) =>
@@ -419,7 +414,17 @@ let validateCustom = (key, errors, value, isLiveMode) => {
         "Please enter integer value from 1 to 5"->JSON.Encode.string,
       )
     }
+  | _ => ()
+  }
+}
 
+let validateEmptyValue = (key, errors) => {
+  switch key {
+  | MaxAutoRetries =>
+    errors->Dict.set(
+      key->validationFieldsMapper,
+      "Please enter a max auto retries value"->JSON.Encode.string,
+    )
   | _ => ()
   }
 }
@@ -435,10 +440,11 @@ let validateMerchantAccountForm = (
 
   let valuesDict = values->getDictFromJsonObject
   fieldsToValidate->Array.forEach(key => {
-    let value = getString(valuesDict, key->validationFieldsMapper, "")->getNonEmptyString
-    switch value {
-    | Some(str) => key->validateCustom(errors, str, isLiveMode)
-    | _ => ()
+    let value = getString(valuesDict, key->validationFieldsMapper, "")
+    if value->String.length < 1 {
+      key->validateEmptyValue(errors)
+    } else {
+      key->validateCustom(errors, value, isLiveMode)
     }
   })
 

src/utils/LogicUtils.res

@@ -233,6 +233,10 @@ let getOptionIntFromString = str => {
   str->Int.fromString
 }
 
+let getOptionStringFromInt = int => {
+  Some(int->Option.getOr(0)->Int.toString)
+}
+
 let getOptionFloatFromString = str => {
   str->Float.fromString
 }