PaymentResponse.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from payment-request (webref). Do not edit.
module JSDOM.Generated.PaymentResponse
       (complete, retry, toJSON, toJSON_, getRequestId, getMethodName, getDetails, getShippingAddress, getShippingAddressUnsafe, getShippingAddressUnchecked, getShippingOption, getShippingOptionUnsafe, getShippingOptionUnchecked, getPayerName, getPayerNameUnsafe, getPayerNameUnchecked, getPayerEmail, getPayerEmailUnsafe, getPayerEmailUnchecked, getPayerPhone, getPayerPhoneUnsafe, getPayerPhoneUnchecked, payerdetailchange, PaymentResponse(..), gTypePaymentResponse)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/complete MDN PaymentResponse.complete documentation>
complete :: (MonadDOM m) => PaymentResponse -> Maybe PaymentComplete -> Maybe PaymentCompleteDetails -> m ()
complete self result' details = liftDOM (void (((self ^. jsf "complete" [P.maybe (P.return jsUndefined) toJSVal result', P.maybe (P.return jsUndefined) toJSVal details]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/retry MDN PaymentResponse.retry documentation>
retry :: (MonadDOM m) => PaymentResponse -> Maybe PaymentValidationErrors -> m ()
retry self errorFields = liftDOM (void (((self ^. jsf "retry" [P.maybe (P.return jsUndefined) toJSVal errorFields]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/toJSON MDN PaymentResponse.toJSON documentation>
toJSON :: (MonadDOM m) => PaymentResponse -> m GObject
toJSON self = liftDOM (((self ^. jsf "toJSON" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/toJSON MDN PaymentResponse.toJSON documentation>
toJSON_ :: (MonadDOM m) => PaymentResponse -> m ()
toJSON_ self = liftDOM (void (self ^. jsf "toJSON" ()))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/requestId MDN PaymentResponse.requestId documentation>
getRequestId :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getRequestId self = liftDOM (((self ^. js "requestId") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/methodName MDN PaymentResponse.methodName documentation>
getMethodName :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getMethodName self = liftDOM (((self ^. js "methodName") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/details MDN PaymentResponse.details documentation>
getDetails :: (MonadDOM m) => PaymentResponse -> m GObject
getDetails self = liftDOM (((self ^. js "details") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingAddress MDN PaymentResponse.shippingAddress documentation>
getShippingAddress :: (MonadDOM m) => PaymentResponse -> m (Maybe ContactAddress)
getShippingAddress self = liftDOM (((self ^. js "shippingAddress") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingAddress MDN PaymentResponse.shippingAddress documentation>
getShippingAddressUnsafe :: (MonadDOM m, HasCallStack) => PaymentResponse -> m ContactAddress
getShippingAddressUnsafe self = liftDOM ((((self ^. js "shippingAddress") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingAddress MDN PaymentResponse.shippingAddress documentation>
getShippingAddressUnchecked :: (MonadDOM m) => PaymentResponse -> m ContactAddress
getShippingAddressUnchecked self = liftDOM (((self ^. js "shippingAddress") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingOption MDN PaymentResponse.shippingOption documentation>
getShippingOption :: (MonadDOM m, FromJSString result) => PaymentResponse -> m (Maybe result)
getShippingOption self = liftDOM (((self ^. js "shippingOption") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingOption MDN PaymentResponse.shippingOption documentation>
getShippingOptionUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentResponse -> m result
getShippingOptionUnsafe self = liftDOM ((((self ^. js "shippingOption") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingOption MDN PaymentResponse.shippingOption documentation>
getShippingOptionUnchecked :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getShippingOptionUnchecked self = liftDOM (((self ^. js "shippingOption") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerName MDN PaymentResponse.payerName documentation>
getPayerName :: (MonadDOM m, FromJSString result) => PaymentResponse -> m (Maybe result)
getPayerName self = liftDOM (((self ^. js "payerName") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerName MDN PaymentResponse.payerName documentation>
getPayerNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentResponse -> m result
getPayerNameUnsafe self = liftDOM ((((self ^. js "payerName") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerName MDN PaymentResponse.payerName documentation>
getPayerNameUnchecked :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getPayerNameUnchecked self = liftDOM (((self ^. js "payerName") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerEmail MDN PaymentResponse.payerEmail documentation>
getPayerEmail :: (MonadDOM m, FromJSString result) => PaymentResponse -> m (Maybe result)
getPayerEmail self = liftDOM (((self ^. js "payerEmail") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerEmail MDN PaymentResponse.payerEmail documentation>
getPayerEmailUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentResponse -> m result
getPayerEmailUnsafe self = liftDOM ((((self ^. js "payerEmail") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerEmail MDN PaymentResponse.payerEmail documentation>
getPayerEmailUnchecked :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getPayerEmailUnchecked self = liftDOM (((self ^. js "payerEmail") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerPhone MDN PaymentResponse.payerPhone documentation>
getPayerPhone :: (MonadDOM m, FromJSString result) => PaymentResponse -> m (Maybe result)
getPayerPhone self = liftDOM (((self ^. js "payerPhone") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerPhone MDN PaymentResponse.payerPhone documentation>
getPayerPhoneUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentResponse -> m result
getPayerPhoneUnsafe self = liftDOM ((((self ^. js "payerPhone") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/payerPhone MDN PaymentResponse.payerPhone documentation>
getPayerPhoneUnchecked :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getPayerPhoneUnchecked self = liftDOM (((self ^. js "payerPhone") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentresponse-onpayerdetailchange payerdetailchange event>
payerdetailchange :: EventName PaymentResponse PaymentRequestUpdateEvent
payerdetailchange = unsafeEventName (toJSString "payerdetailchange")