fix: apple pay map type (#801)

src/screens/Connectors/ConnectorPaymentMethod.res

@@ -70,6 +70,10 @@ let make = (
           connectorID->Option.getOr(""),
           connectorIgnoredField,
         )
+      // Need to refactor
+      let metaData = body->getDictFromJsonObject->getDictfromDict("metadata")->JSON.Encode.object
+      let _ = ConnectorUtils.updateMetaData(~metaData)
+      //
       let connectorUrl = getURL(~entityName=CONNECTOR, ~methodType=Post, ~id=connectorID, ())
       let response = await updateAPIHook(connectorUrl, body, Post, ())
       setInitialValues(_ => response)

src/screens/Connectors/ConnectorUtils.res

@@ -1489,3 +1489,23 @@ let existsInArray = (element, connectorList) => {
     }
   )
 }
+
+// Need to refactor
+
+let updateMetaData = (~metaData) => {
+  open LogicUtils
+  let apple_pay_combined = metaData->getDictFromJsonObject->getDictfromDict("apple_pay_combined")
+  let manual = apple_pay_combined->getDictfromDict("manual")
+  switch manual->Dict.keysToArray->Array.length > 0 {
+  | true => {
+      let applepay =
+        manual
+        ->getDictfromDict("session_token_data")
+        ->JSON.Encode.object
+        ->Identity.jsonToAnyType
+        ->convertMapObjectToDict
+      manual->Dict.set("session_token_data", applepay->JSON.Encode.object)
+    }
+  | false => ()
+  }
+}

src/screens/Connectors/Wallets/ApplePayWalletIntegration.res

@@ -221,6 +221,8 @@ module Manual = {
     open LogicUtils
     open ApplePayWalletIntegrationUtils
     open FormRenderer
+    // Need to refactor
+    let _ = ConnectorUtils.updateMetaData(~metaData)
     let configurationFields =
       metadataInputs
       ->getDictfromDict("apple_pay")

src/utils/LogicUtils.res

@@ -67,11 +67,15 @@ let getDictFromJsonObject = json => {
 }
 
 let convertMapObjectToDict = genericTypeMapVal => {
-  open MapTypes
-  let map = create(genericTypeMapVal)
-  let mapIterator = map.entries(.)
-  let dict = object.fromEntries(. mapIterator)->getDictFromJsonObject
-  dict
+  try {
+    open MapTypes
+    let map = create(genericTypeMapVal)
+    let mapIterator = map.entries(.)
+    let dict = object.fromEntries(. mapIterator)->getDictFromJsonObject
+    dict
+  } catch {
+  | _ => genericTypeMapVal
+  }
 }
 
 let removeDuplicate = (arr: array<string>) => {