feat: headless functions added for payment management

juspay · Jun 30, 2024 · 5dbe15d · 5dbe15d
1 parent c215b5a
commit 5dbe15d
Show file tree

Hide file tree

Showing 4 changed files with 104 additions and 5 deletions.
diff --git a/src/orca-loader/Hyper.res b/src/orca-loader/Hyper.res
@@ -614,6 +614,7 @@ let make = (publishableKey, options: option<JSON.t>, analyticsInfo: option<JSON.
           ~clientSecret={clientSecretId},
           ~publishableKey,
           ~logger=Some(logger),
+          ~ephemeralKey=ephemeralKey.contents,
         )
       }
 

diff --git a/src/orca-loader/PaymentSession.res b/src/orca-loader/PaymentSession.res
@@ -1,6 +1,12 @@
 open Types
 
-let make = (options, ~clientSecret, ~publishableKey, ~logger: option<OrcaLogger.loggerMake>) => {
+let make = (
+  options,
+  ~clientSecret,
+  ~publishableKey,
+  ~logger: option<OrcaLogger.loggerMake>,
+  ~ephemeralKey,
+) => {
   let logger = logger->Option.getOr(OrcaLogger.defaultLoggerConfig)
   let switchToCustomPod =
     GlobalVars.isInteg &&
@@ -20,6 +26,13 @@ let make = (options, ~clientSecret, ~publishableKey, ~logger: option<OrcaLogger.
         ~logger,
         ~switchToCustomPod,
       ),
+    getPaymentManagementMethods: _ =>
+      PaymentSessionMethods.getPaymentManagementMethods(
+        ~ephemeralKey,
+        ~logger,
+        ~switchToCustomPod,
+        ~endpoint,
+      ),
   }
 
   defaultInitPaymentSession

diff --git a/src/orca-loader/PaymentSessionMethods.res b/src/orca-loader/PaymentSessionMethods.res
@@ -1,13 +1,15 @@
+open Promise
+open Types
+open Utils
+
 let getCustomerSavedPaymentMethods = (
   ~clientSecret,
   ~publishableKey,
   ~endpoint,
   ~logger,
   ~switchToCustomPod,
 ) => {
-  open Promise
-  open Types
-  open Utils
+  // open Promise
   open ApplePayTypes
   open GooglePayType
   let applePaySessionRef = ref(Nullable.null)
@@ -463,3 +465,65 @@ let getCustomerSavedPaymentMethods = (
     handleFailureResponse(~message=exceptionMessage, ~errorType="server_error")->resolve
   })
 }
+
+let getPaymentManagementMethods = (~ephemeralKey, ~logger, ~switchToCustomPod, ~endpoint) => {
+  let getSavedPaymentManagementMethodsList = _ => {
+    PaymentHelpers.fetchSavedPaymentMethodList(
+      ~ephemeralKey,
+      ~optLogger=Some(logger),
+      ~switchToCustomPod=false,
+      ~endpoint,
+    )
+    ->then(response => {
+      response->resolve
+    })
+    ->catch(err => {
+      let exceptionMessage = err->formatException->JSON.stringify
+      let updatedCustomerDetails =
+        [
+          (
+            "error",
+            [
+              ("type", "server_error"->JSON.Encode.string),
+              ("message", exceptionMessage->JSON.Encode.string),
+            ]->getJsonFromArrayOfJson,
+          ),
+        ]->getJsonFromArrayOfJson
+      updatedCustomerDetails->resolve
+    })
+  }
+
+  let deleteSavedPaymentMethod = paymentMethodId => {
+    PaymentHelpers.deletePaymentMethod(
+      ~ephemeralKey,
+      ~paymentMethodId={paymentMethodId->JSON.Decode.string->Option.getOr("")},
+      ~logger,
+      ~switchToCustomPod,
+    )
+    ->then(response => {
+      response->resolve
+    })
+    ->catch(err => {
+      let exceptionMessage = err->formatException->JSON.stringify
+      let updatedCustomerDetails =
+        [
+          (
+            "error",
+            [
+              ("type", "server_error"->JSON.Encode.string),
+              ("message", exceptionMessage->JSON.Encode.string),
+            ]->getJsonFromArrayOfJson,
+          ),
+        ]->getJsonFromArrayOfJson
+
+      updatedCustomerDetails->resolve
+    })
+  }
+
+  {
+    getSavedPaymentManagementMethodsList,
+    deleteSavedPaymentMethod,
+  }
+  ->Identity.anyTypeToJson
+  ->resolve
+}
diff --git a/src/orca-loader/Types.res b/src/orca-loader/Types.res
@@ -46,7 +46,15 @@ type getCustomerSavedPaymentMethods = {
   confirmWithLastUsedPaymentMethod: JSON.t => Promise.t<JSON.t>,
 }
 
-type initPaymentSession = {getCustomerSavedPaymentMethods: unit => Promise.t<JSON.t>}
+type getPaymentManagementMethods = {
+  getSavedPaymentManagementMethodsList: unit => Promise.t<JSON.t>,
+  deleteSavedPaymentMethod: JSON.t => Promise.t<JSON.t>,
+}
+
+type initPaymentSession = {
+  getCustomerSavedPaymentMethods: unit => Promise.t<JSON.t>,
+  getPaymentManagementMethods: unit => Promise.t<JSON.t>,
+}
 
 type confirmParams = {return_url: string}
 
@@ -125,6 +133,14 @@ let getCustomerDefaultSavedPaymentMethodData = () => {
   JSON.Encode.null
 }
 
+let getSavedPaymentManagementMethodsList = () => {
+  JSON.Encode.null
+}
+
+let deleteSavedPaymentMethod = () => {
+  JSON.Encode.null
+}
+
 let getCustomerLastUsedPaymentMethodData = () => {
   JSON.Encode.null
 }
@@ -146,8 +162,13 @@ let defaultGetCustomerSavedPaymentMethods = () => {
   Promise.resolve(JSON.Encode.null)
 }
 
+let defaultGetPaymentManagementMethods = () => {
+  Promise.resolve(JSON.Encode.null)
+}
+
 let defaultInitPaymentSession: initPaymentSession = {
   getCustomerSavedPaymentMethods: defaultGetCustomerSavedPaymentMethods,
+  getPaymentManagementMethods: defaultGetPaymentManagementMethods,
 }
 
 let defaultHyperInstance = {