hyperswitch-web/src/Utilities/PaymentManagementBody.res at 303a58a6d85ca377abfa3262fce5707bf5642c74 · juspay/hyperswitch-web · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
let updateCardBody = (~paymentMethodId, ~nickName, ~cardHolderName) => {
  let cardDetails =
    [
      ("card_holder_name", cardHolderName->JSON.Encode.string),
      ("nick_name", nickName->JSON.Encode.string),
    ]->Utils.getJsonFromArrayOfJson
  let paymentMethodData = [("card", cardDetails)]->Utils.getJsonFromArrayOfJson

  [
    ("payment_method_id", paymentMethodId->JSON.Encode.string),
    ("payment_method_data", paymentMethodData),
  ]
}

let saveCardBody = (
  ~cardNumber,
  ~month,
  ~year,
  ~cardHolderName=None,
  ~cvcNumber,
  ~cardBrand,
  ~nickname="",
) => {
  let cardBody = [
    ("card_number", cardNumber->CardValidations.clearSpaces->JSON.Encode.string),
    ("card_exp_month", month->JSON.Encode.string),
    ("card_exp_year", year->JSON.Encode.string),
    ("card_cvc", cvcNumber->JSON.Encode.string),
    ("card_issuer", ""->JSON.Encode.string),
  ]

  cardHolderName
  ->Option.map(name => cardBody->Array.push(("card_holder_name", name->JSON.Encode.string))->ignore)
  ->ignore

  if nickname != "" {
    cardBody->Array.push(("nick_name", nickname->JSON.Encode.string))->ignore
  }

  [
    ("payment_method_type", "card"->JSON.Encode.string),
    ("payment_method_subtype", "card"->JSON.Encode.string),
    (
      "payment_method_data",
      [
        ("card", cardBody->Array.concat(cardBrand)->Utils.getJsonFromArrayOfJson),
      ]->Utils.getJsonFromArrayOfJson,
    ),
  ]
}

let vgsCardBody = (~cardNumber, ~month, ~year, ~cvcNumber) => {
  let cardBody = [
    ("card_number", cardNumber->JSON.Encode.string),
    ("card_exp_month", month->JSON.Encode.string),
    ("card_exp_year", year->JSON.Encode.string),
    ("card_cvc", cvcNumber->JSON.Encode.string),
  ]

  let paymentMethodData = [("external_proxy_card_data", cardBody->Utils.getJsonFromArrayOfJson)]

  [
    ("payment_method_type", "card"->JSON.Encode.string),
    ("payment_method_subtype", "debit"->JSON.Encode.string),
    ("payment_method_data", paymentMethodData->Utils.getJsonFromArrayOfJson),
  ]
}

let hyperswitchVaultBody = token => {
  let paymentMethodData =
    [("card_token", Dict.make()->JSON.Encode.object)]->Utils.getJsonFromArrayOfJson

  [
    ("payment_method_type", "card"->JSON.Encode.string),
    ("payment_method_subtype", "debit"->JSON.Encode.string),
    ("payment_token", token->JSON.Encode.string),
    ("payment_method_data", paymentMethodData),
  ]
}