jsaddle-dom-0.10.0.0: src/JSDOM/Generated/AuthenticationExtensionsPaymentInputs.hs
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit.
module JSDOM.Generated.AuthenticationExtensionsPaymentInputs
(newAuthenticationExtensionsPaymentInputs, setIsPayment, getIsPayment, getIsPaymentUnsafe, getIsPaymentUnchecked, setBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParams, getBrowserBoundPubKeyCredParamsUnsafe, getBrowserBoundPubKeyCredParamsUnchecked, setRpId, getRpId, getRpIdUnsafe, getRpIdUnchecked, setTopOrigin, getTopOrigin, getTopOriginUnsafe, getTopOriginUnchecked, setPayeeName, getPayeeName, getPayeeNameUnsafe, getPayeeNameUnchecked, setPayeeOrigin, getPayeeOrigin, getPayeeOriginUnsafe, getPayeeOriginUnchecked, setPaymentEntitiesLogos, getPaymentEntitiesLogos, getPaymentEntitiesLogosUnsafe, getPaymentEntitiesLogosUnchecked, setTotal, getTotal, getTotalUnsafe, getTotalUnchecked, setInstrument, getInstrument, getInstrumentUnsafe, getInstrumentUnchecked, AuthenticationExtensionsPaymentInputs(..), gTypeAuthenticationExtensionsPaymentInputs)
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://w3c.github.io/secure-payment-confirmation/#dictdef-authenticationextensionspaymentinputs AuthenticationExtensionsPaymentInputs specification>
newAuthenticationExtensionsPaymentInputs :: (MonadDOM m) => m AuthenticationExtensionsPaymentInputs
newAuthenticationExtensionsPaymentInputs = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>
setIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> Bool -> m ()
setIsPayment self val = liftDOM (void (self ^. jss "isPayment" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>
getIsPayment :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe Bool)
getIsPayment self = liftDOM (((self ^. js "isPayment") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>
getIsPaymentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m Bool
getIsPaymentUnsafe self = liftDOM ((((self ^. js "isPayment") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-ispayment AuthenticationExtensionsPaymentInputs.isPayment specification>
getIsPaymentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m Bool
getIsPaymentUnchecked self = liftDOM (((self ^. js "isPayment") >>= valToBool))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>
setBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PublicKeyCredentialParameters] -> m ()
setBrowserBoundPubKeyCredParams self val = liftDOM (void (self ^. jss "browserBoundPubKeyCredParams" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>
getBrowserBoundPubKeyCredParams :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PublicKeyCredentialParameters])
getBrowserBoundPubKeyCredParams self = liftDOM (((self ^. js "browserBoundPubKeyCredParams") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>
getBrowserBoundPubKeyCredParamsUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters]
getBrowserBoundPubKeyCredParamsUnsafe self = liftDOM ((((self ^. js "browserBoundPubKeyCredParams") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-browserboundpubkeycredparams AuthenticationExtensionsPaymentInputs.browserBoundPubKeyCredParams specification>
getBrowserBoundPubKeyCredParamsUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PublicKeyCredentialParameters]
getBrowserBoundPubKeyCredParamsUnchecked self = liftDOM (((self ^. js "browserBoundPubKeyCredParams") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>
setRpId :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()
setRpId self val = liftDOM (void (self ^. jss "rpId" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>
getRpId :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)
getRpId self = liftDOM (((self ^. js "rpId") >>= fromMaybeJSString))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>
getRpIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getRpIdUnsafe self = liftDOM ((((self ^. js "rpId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-rpid AuthenticationExtensionsPaymentInputs.rpId specification>
getRpIdUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getRpIdUnchecked self = liftDOM (((self ^. js "rpId") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>
setTopOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()
setTopOrigin self val = liftDOM (void (self ^. jss "topOrigin" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>
getTopOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)
getTopOrigin self = liftDOM (((self ^. js "topOrigin") >>= fromMaybeJSString))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>
getTopOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getTopOriginUnsafe self = liftDOM ((((self ^. js "topOrigin") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-toporigin AuthenticationExtensionsPaymentInputs.topOrigin specification>
getTopOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getTopOriginUnchecked self = liftDOM (((self ^. js "topOrigin") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>
setPayeeName :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()
setPayeeName self val = liftDOM (void (self ^. jss "payeeName" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>
getPayeeName :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)
getPayeeName self = liftDOM (((self ^. js "payeeName") >>= fromMaybeJSString))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>
getPayeeNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getPayeeNameUnsafe self = liftDOM ((((self ^. js "payeeName") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeename AuthenticationExtensionsPaymentInputs.payeeName specification>
getPayeeNameUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getPayeeNameUnchecked self = liftDOM (((self ^. js "payeeName") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>
setPayeeOrigin :: (MonadDOM m, ToJSString val) => AuthenticationExtensionsPaymentInputs -> val -> m ()
setPayeeOrigin self val = liftDOM (void (self ^. jss "payeeOrigin" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>
getPayeeOrigin :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m (Maybe result)
getPayeeOrigin self = liftDOM (((self ^. js "payeeOrigin") >>= fromMaybeJSString))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>
getPayeeOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getPayeeOriginUnsafe self = liftDOM ((((self ^. js "payeeOrigin") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-payeeorigin AuthenticationExtensionsPaymentInputs.payeeOrigin specification>
getPayeeOriginUnchecked :: (MonadDOM m, FromJSString result) => AuthenticationExtensionsPaymentInputs -> m result
getPayeeOriginUnchecked self = liftDOM (((self ^. js "payeeOrigin") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>
setPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> [PaymentEntityLogo] -> m ()
setPaymentEntitiesLogos self val = liftDOM (void (self ^. jss "paymentEntitiesLogos" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>
getPaymentEntitiesLogos :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe [PaymentEntityLogo])
getPaymentEntitiesLogos self = liftDOM (((self ^. js "paymentEntitiesLogos") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>
getPaymentEntitiesLogosUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo]
getPaymentEntitiesLogosUnsafe self = liftDOM ((((self ^. js "paymentEntitiesLogos") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-paymententitieslogos AuthenticationExtensionsPaymentInputs.paymentEntitiesLogos specification>
getPaymentEntitiesLogosUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m [PaymentEntityLogo]
getPaymentEntitiesLogosUnchecked self = liftDOM (((self ^. js "paymentEntitiesLogos") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>
setTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCurrencyAmount -> m ()
setTotal self val = liftDOM (void (self ^. jss "total" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>
getTotal :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCurrencyAmount)
getTotal self = liftDOM (((self ^. js "total") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>
getTotalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount
getTotalUnsafe self = liftDOM ((((self ^. js "total") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-total AuthenticationExtensionsPaymentInputs.total specification>
getTotalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCurrencyAmount
getTotalUnchecked self = liftDOM (((self ^. js "total") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>
setInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> PaymentCredentialInstrument -> m ()
setInstrument self val = liftDOM (void (self ^. jss "instrument" (toJSVal val)))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>
getInstrument :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m (Maybe PaymentCredentialInstrument)
getInstrument self = liftDOM (((self ^. js "instrument") >>= fromJSValUnchecked))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>
getInstrumentUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument
getInstrumentUnsafe self = liftDOM ((((self ^. js "instrument") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://w3c.github.io/secure-payment-confirmation/#dom-authenticationextensionspaymentinputs-instrument AuthenticationExtensionsPaymentInputs.instrument specification>
getInstrumentUnchecked :: (MonadDOM m) => AuthenticationExtensionsPaymentInputs -> m PaymentCredentialInstrument
getInstrumentUnchecked self = liftDOM (((self ^. js "instrument") >>= fromJSValUnchecked))