PaymentDetailsUpdate.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.PaymentDetailsUpdate
       (newPaymentDetailsUpdate, setError, getError, getErrorUnsafe, getErrorUnchecked, setTotal, getTotal, getTotalUnsafe, getTotalUnchecked, setShippingAddressErrors, getShippingAddressErrors, getShippingAddressErrorsUnsafe, getShippingAddressErrorsUnchecked, setPayerErrors, getPayerErrors, getPayerErrorsUnsafe, getPayerErrorsUnchecked, setPaymentMethodErrors, getPaymentMethodErrors, getPaymentMethodErrorsUnsafe, getPaymentMethodErrorsUnchecked, PaymentDetailsUpdate(..), gTypePaymentDetailsUpdate)
       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/payment-request/#dom-paymentdetailsupdate PaymentDetailsUpdate specification>
newPaymentDetailsUpdate :: (MonadDOM m) => m PaymentDetailsUpdate
newPaymentDetailsUpdate = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-error PaymentDetailsUpdate.error specification>
setError :: (MonadDOM m, ToJSString val) => PaymentDetailsUpdate -> val -> m ()
setError self val = liftDOM (void (self ^. jss "error" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-error PaymentDetailsUpdate.error specification>
getError :: (MonadDOM m, FromJSString result) => PaymentDetailsUpdate -> m (Maybe result)
getError self = liftDOM (((self ^. js "error") >>= fromMaybeJSString))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-error PaymentDetailsUpdate.error specification>
getErrorUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentDetailsUpdate -> m result
getErrorUnsafe self = liftDOM ((((self ^. js "error") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-error PaymentDetailsUpdate.error specification>
getErrorUnchecked :: (MonadDOM m, FromJSString result) => PaymentDetailsUpdate -> m result
getErrorUnchecked self = liftDOM (((self ^. js "error") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-total PaymentDetailsUpdate.total specification>
setTotal :: (MonadDOM m) => PaymentDetailsUpdate -> PaymentItem -> m ()
setTotal self val = liftDOM (void (self ^. jss "total" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-total PaymentDetailsUpdate.total specification>
getTotal :: (MonadDOM m) => PaymentDetailsUpdate -> m (Maybe PaymentItem)
getTotal self = liftDOM (((self ^. js "total") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-total PaymentDetailsUpdate.total specification>
getTotalUnsafe :: (MonadDOM m, HasCallStack) => PaymentDetailsUpdate -> m PaymentItem
getTotalUnsafe self = liftDOM ((((self ^. js "total") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-total PaymentDetailsUpdate.total specification>
getTotalUnchecked :: (MonadDOM m) => PaymentDetailsUpdate -> m PaymentItem
getTotalUnchecked self = liftDOM (((self ^. js "total") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-shippingaddresserrors PaymentDetailsUpdate.shippingAddressErrors specification>
setShippingAddressErrors :: (MonadDOM m) => PaymentDetailsUpdate -> AddressErrors -> m ()
setShippingAddressErrors self val = liftDOM (void (self ^. jss "shippingAddressErrors" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-shippingaddresserrors PaymentDetailsUpdate.shippingAddressErrors specification>
getShippingAddressErrors :: (MonadDOM m) => PaymentDetailsUpdate -> m (Maybe AddressErrors)
getShippingAddressErrors self = liftDOM (((self ^. js "shippingAddressErrors") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-shippingaddresserrors PaymentDetailsUpdate.shippingAddressErrors specification>
getShippingAddressErrorsUnsafe :: (MonadDOM m, HasCallStack) => PaymentDetailsUpdate -> m AddressErrors
getShippingAddressErrorsUnsafe self = liftDOM ((((self ^. js "shippingAddressErrors") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-shippingaddresserrors PaymentDetailsUpdate.shippingAddressErrors specification>
getShippingAddressErrorsUnchecked :: (MonadDOM m) => PaymentDetailsUpdate -> m AddressErrors
getShippingAddressErrorsUnchecked self = liftDOM (((self ^. js "shippingAddressErrors") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-payererrors PaymentDetailsUpdate.payerErrors specification>
setPayerErrors :: (MonadDOM m) => PaymentDetailsUpdate -> PayerErrors -> m ()
setPayerErrors self val = liftDOM (void (self ^. jss "payerErrors" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-payererrors PaymentDetailsUpdate.payerErrors specification>
getPayerErrors :: (MonadDOM m) => PaymentDetailsUpdate -> m (Maybe PayerErrors)
getPayerErrors self = liftDOM (((self ^. js "payerErrors") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-payererrors PaymentDetailsUpdate.payerErrors specification>
getPayerErrorsUnsafe :: (MonadDOM m, HasCallStack) => PaymentDetailsUpdate -> m PayerErrors
getPayerErrorsUnsafe self = liftDOM ((((self ^. js "payerErrors") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-payererrors PaymentDetailsUpdate.payerErrors specification>
getPayerErrorsUnchecked :: (MonadDOM m) => PaymentDetailsUpdate -> m PayerErrors
getPayerErrorsUnchecked self = liftDOM (((self ^. js "payerErrors") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-paymentmethoderrors PaymentDetailsUpdate.paymentMethodErrors specification>
setPaymentMethodErrors :: (MonadDOM m) => PaymentDetailsUpdate -> GObject -> m ()
setPaymentMethodErrors self val = liftDOM (void (self ^. jss "paymentMethodErrors" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-paymentmethoderrors PaymentDetailsUpdate.paymentMethodErrors specification>
getPaymentMethodErrors :: (MonadDOM m) => PaymentDetailsUpdate -> m (Maybe GObject)
getPaymentMethodErrors self = liftDOM (((self ^. js "paymentMethodErrors") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-paymentmethoderrors PaymentDetailsUpdate.paymentMethodErrors specification>
getPaymentMethodErrorsUnsafe :: (MonadDOM m, HasCallStack) => PaymentDetailsUpdate -> m GObject
getPaymentMethodErrorsUnsafe self = liftDOM ((((self ^. js "paymentMethodErrors") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentdetailsupdate-paymentmethoderrors PaymentDetailsUpdate.paymentMethodErrors specification>
getPaymentMethodErrorsUnchecked :: (MonadDOM m) => PaymentDetailsUpdate -> m GObject
getPaymentMethodErrorsUnchecked self = liftDOM (((self ^. js "paymentMethodErrors") >>= fromJSValUnchecked))