{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.ApplePaySession
(newApplePaySession, supportsVersion, supportsVersion_,
canMakePayments, canMakePayments_, canMakePaymentsWithActiveCard,
canMakePaymentsWithActiveCard_, openPaymentSetup,
openPaymentSetup_, begin, abort, completeMerchantValidation,
completeShippingMethodSelectionUpdate,
completeShippingContactSelectionUpdate,
completePaymentMethodSelectionUpdate, completePaymentResult,
completeShippingMethodSelection, completeShippingContactSelection,
completePaymentMethodSelection, completePayment,
pattern STATUS_SUCCESS, pattern STATUS_FAILURE,
pattern STATUS_INVALID_BILLING_POSTAL_ADDRESS,
pattern STATUS_INVALID_SHIPPING_POSTAL_ADDRESS,
pattern STATUS_INVALID_SHIPPING_CONTACT,
pattern STATUS_PIN_REQUIRED, pattern STATUS_PIN_INCORRECT,
pattern STATUS_PIN_LOCKOUT, validatemerchant,
paymentmethodselected, paymentauthorized, shippingmethodselected,
shippingcontactselected, cancel, ApplePaySession(..),
gTypeApplePaySession)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
newApplePaySession ::
(MonadDOM m) => Word -> ApplePayPaymentRequest -> m ApplePaySession
newApplePaySession :: Word -> ApplePayPaymentRequest -> m ApplePaySession
newApplePaySession Word
version ApplePayPaymentRequest
paymentRequest
= DOM ApplePaySession -> m ApplePaySession
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> ApplePaySession
ApplePaySession (JSVal -> ApplePaySession) -> JSM JSVal -> DOM ApplePaySession
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new ([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession")
[Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
version, ApplePayPaymentRequest -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayPaymentRequest
paymentRequest])
supportsVersion :: (MonadDOM m) => Word -> m Bool
supportsVersion :: Word -> m Bool
supportsVersion Word
version
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"supportsVersion"
[Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
version])
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
supportsVersion_ :: (MonadDOM m) => Word -> m ()
supportsVersion_ :: Word -> m ()
supportsVersion_ Word
version
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"supportsVersion"
[Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
version]))
canMakePayments :: (MonadDOM m) => m Bool
canMakePayments :: m Bool
canMakePayments
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canMakePayments" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
canMakePayments_ :: (MonadDOM m) => m ()
canMakePayments_ :: m ()
canMakePayments_
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canMakePayments" ()))
canMakePaymentsWithActiveCard ::
(MonadDOM m, ToJSString merchantIdentifier) =>
merchantIdentifier -> m Bool
canMakePaymentsWithActiveCard :: merchantIdentifier -> m Bool
canMakePaymentsWithActiveCard merchantIdentifier
merchantIdentifier
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canMakePaymentsWithActiveCard"
[merchantIdentifier -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal merchantIdentifier
merchantIdentifier])
JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
readPromise)
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
canMakePaymentsWithActiveCard_ ::
(MonadDOM m, ToJSString merchantIdentifier) =>
merchantIdentifier -> m ()
canMakePaymentsWithActiveCard_ :: merchantIdentifier -> m ()
canMakePaymentsWithActiveCard_ merchantIdentifier
merchantIdentifier
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canMakePaymentsWithActiveCard"
[merchantIdentifier -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal merchantIdentifier
merchantIdentifier]))
openPaymentSetup ::
(MonadDOM m, ToJSString merchantIdentifier) =>
merchantIdentifier -> m Bool
openPaymentSetup :: merchantIdentifier -> m Bool
openPaymentSetup merchantIdentifier
merchantIdentifier
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"openPaymentSetup"
[merchantIdentifier -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal merchantIdentifier
merchantIdentifier])
JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
readPromise)
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
openPaymentSetup_ ::
(MonadDOM m, ToJSString merchantIdentifier) =>
merchantIdentifier -> m ()
openPaymentSetup_ :: merchantIdentifier -> m ()
openPaymentSetup_ merchantIdentifier
merchantIdentifier
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"ApplePaySession") JSM JSVal
-> Getting (JSM JSVal) (JSM JSVal) (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"openPaymentSetup"
[merchantIdentifier -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal merchantIdentifier
merchantIdentifier]))
begin :: (MonadDOM m) => ApplePaySession -> m ()
begin :: ApplePaySession -> m ()
begin ApplePaySession
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"begin" ()))
abort :: (MonadDOM m) => ApplePaySession -> m ()
abort :: ApplePaySession -> m ()
abort ApplePaySession
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"abort" ()))
completeMerchantValidation ::
(MonadDOM m, ToJSVal merchantSession) =>
ApplePaySession -> merchantSession -> m ()
completeMerchantValidation :: ApplePaySession -> merchantSession -> m ()
completeMerchantValidation ApplePaySession
self merchantSession
merchantSession
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completeMerchantValidation"
[merchantSession -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal merchantSession
merchantSession]))
completeShippingMethodSelectionUpdate ::
(MonadDOM m) =>
ApplePaySession -> ApplePayShippingMethodUpdate -> m ()
completeShippingMethodSelectionUpdate :: ApplePaySession -> ApplePayShippingMethodUpdate -> m ()
completeShippingMethodSelectionUpdate ApplePaySession
self ApplePayShippingMethodUpdate
update
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completeShippingMethodSelection" [ApplePayShippingMethodUpdate -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayShippingMethodUpdate
update]))
completeShippingContactSelectionUpdate ::
(MonadDOM m) =>
ApplePaySession -> ApplePayShippingContactUpdate -> m ()
completeShippingContactSelectionUpdate :: ApplePaySession -> ApplePayShippingContactUpdate -> m ()
completeShippingContactSelectionUpdate ApplePaySession
self ApplePayShippingContactUpdate
update
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completeShippingContactSelection" [ApplePayShippingContactUpdate -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayShippingContactUpdate
update]))
completePaymentMethodSelectionUpdate ::
(MonadDOM m) =>
ApplePaySession -> ApplePayPaymentMethodUpdate -> m ()
completePaymentMethodSelectionUpdate :: ApplePaySession -> ApplePayPaymentMethodUpdate -> m ()
completePaymentMethodSelectionUpdate ApplePaySession
self ApplePayPaymentMethodUpdate
update
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completePaymentMethodSelection" [ApplePayPaymentMethodUpdate -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayPaymentMethodUpdate
update]))
completePaymentResult ::
(MonadDOM m) =>
ApplePaySession -> ApplePayPaymentAuthorizationResult -> m ()
completePaymentResult :: ApplePaySession -> ApplePayPaymentAuthorizationResult -> m ()
completePaymentResult ApplePaySession
self ApplePayPaymentAuthorizationResult
result
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completePayment" [ApplePayPaymentAuthorizationResult -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayPaymentAuthorizationResult
result]))
completeShippingMethodSelection ::
(MonadDOM m) =>
ApplePaySession ->
Word -> ApplePayLineItem -> [ApplePayLineItem] -> m ()
completeShippingMethodSelection :: ApplePaySession
-> Word -> ApplePayLineItem -> [ApplePayLineItem] -> m ()
completeShippingMethodSelection ApplePaySession
self Word
status ApplePayLineItem
newTotal [ApplePayLineItem]
newLineItems
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completeShippingMethodSelection"
[Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
status, ApplePayLineItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayLineItem
newTotal, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([ApplePayLineItem] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [ApplePayLineItem]
newLineItems)]))
completeShippingContactSelection ::
(MonadDOM m) =>
ApplePaySession ->
Word ->
[ApplePayShippingMethod] ->
ApplePayLineItem -> [ApplePayLineItem] -> m ()
completeShippingContactSelection :: ApplePaySession
-> Word
-> [ApplePayShippingMethod]
-> ApplePayLineItem
-> [ApplePayLineItem]
-> m ()
completeShippingContactSelection ApplePaySession
self Word
status [ApplePayShippingMethod]
newShippingMethods
ApplePayLineItem
newTotal [ApplePayLineItem]
newLineItems
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completeShippingContactSelection"
[Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
status, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([ApplePayShippingMethod] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [ApplePayShippingMethod]
newShippingMethods),
ApplePayLineItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayLineItem
newTotal, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([ApplePayLineItem] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [ApplePayLineItem]
newLineItems)]))
completePaymentMethodSelection ::
(MonadDOM m) =>
ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m ()
completePaymentMethodSelection :: ApplePaySession -> ApplePayLineItem -> [ApplePayLineItem] -> m ()
completePaymentMethodSelection ApplePaySession
self ApplePayLineItem
newTotal [ApplePayLineItem]
newLineItems
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completePaymentMethodSelection"
[ApplePayLineItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ApplePayLineItem
newTotal, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([ApplePayLineItem] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [ApplePayLineItem]
newLineItems)]))
completePayment :: (MonadDOM m) => ApplePaySession -> Word -> m ()
completePayment :: ApplePaySession -> Word -> m ()
completePayment ApplePaySession
self Word
status
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (ApplePaySession
self ApplePaySession
-> Getting (JSM JSVal) ApplePaySession (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"completePayment" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
status]))
pattern $bSTATUS_SUCCESS :: a
$mSTATUS_SUCCESS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_SUCCESS = 0
pattern $bSTATUS_FAILURE :: a
$mSTATUS_FAILURE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_FAILURE = 1
pattern $bSTATUS_INVALID_BILLING_POSTAL_ADDRESS :: a
$mSTATUS_INVALID_BILLING_POSTAL_ADDRESS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_INVALID_BILLING_POSTAL_ADDRESS = 2
pattern $bSTATUS_INVALID_SHIPPING_POSTAL_ADDRESS :: a
$mSTATUS_INVALID_SHIPPING_POSTAL_ADDRESS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_INVALID_SHIPPING_POSTAL_ADDRESS = 3
pattern $bSTATUS_INVALID_SHIPPING_CONTACT :: a
$mSTATUS_INVALID_SHIPPING_CONTACT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_INVALID_SHIPPING_CONTACT = 4
pattern $bSTATUS_PIN_REQUIRED :: a
$mSTATUS_PIN_REQUIRED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_PIN_REQUIRED = 5
pattern $bSTATUS_PIN_INCORRECT :: a
$mSTATUS_PIN_INCORRECT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_PIN_INCORRECT = 6
pattern $bSTATUS_PIN_LOCKOUT :: a
$mSTATUS_PIN_LOCKOUT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATUS_PIN_LOCKOUT = 7
validatemerchant :: EventName ApplePaySession onvalidatemerchant
validatemerchant :: EventName ApplePaySession onvalidatemerchant
validatemerchant = DOMString -> EventName ApplePaySession onvalidatemerchant
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"validatemerchant")
paymentmethodselected ::
EventName ApplePaySession onpaymentmethodselected
paymentmethodselected :: EventName ApplePaySession onpaymentmethodselected
paymentmethodselected
= DOMString -> EventName ApplePaySession onpaymentmethodselected
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"paymentmethodselected")
paymentauthorized :: EventName ApplePaySession onpaymentauthorized
paymentauthorized :: EventName ApplePaySession onpaymentauthorized
paymentauthorized
= DOMString -> EventName ApplePaySession onpaymentauthorized
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"paymentauthorized")
shippingmethodselected ::
EventName ApplePaySession onshippingmethodselected
shippingmethodselected :: EventName ApplePaySession onshippingmethodselected
shippingmethodselected
= DOMString -> EventName ApplePaySession onshippingmethodselected
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"shippingmethodselected")
shippingcontactselected ::
EventName ApplePaySession onshippingcontactselected
shippingcontactselected :: EventName ApplePaySession onshippingcontactselected
shippingcontactselected
= DOMString -> EventName ApplePaySession onshippingcontactselected
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"shippingcontactselected")
cancel :: EventName ApplePaySession oncancel
cancel :: EventName ApplePaySession oncancel
cancel = DOMString -> EventName ApplePaySession oncancel
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"cancel")