PaymentValidationErrors.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.PaymentValidationErrors
       (newPaymentValidationErrors, setPayer, getPayer, getPayerUnsafe, getPayerUnchecked, setShippingAddress, getShippingAddress, getShippingAddressUnsafe, getShippingAddressUnchecked, setError, getError, getErrorUnsafe, getErrorUnchecked, setPaymentMethod, getPaymentMethod, getPaymentMethodUnsafe, getPaymentMethodUnchecked, PaymentValidationErrors(..), gTypePaymentValidationErrors)
       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-paymentvalidationerrors PaymentValidationErrors specification>
newPaymentValidationErrors :: (MonadDOM m) => m PaymentValidationErrors
newPaymentValidationErrors = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-payer PaymentValidationErrors.payer specification>
setPayer :: (MonadDOM m) => PaymentValidationErrors -> PayerErrors -> m ()
setPayer self val = liftDOM (void (self ^. jss "payer" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-payer PaymentValidationErrors.payer specification>
getPayer :: (MonadDOM m) => PaymentValidationErrors -> m (Maybe PayerErrors)
getPayer self = liftDOM (((self ^. js "payer") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-payer PaymentValidationErrors.payer specification>
getPayerUnchecked :: (MonadDOM m) => PaymentValidationErrors -> m PayerErrors
getPayerUnchecked self = liftDOM (((self ^. js "payer") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-shippingaddress PaymentValidationErrors.shippingAddress specification>
setShippingAddress :: (MonadDOM m) => PaymentValidationErrors -> AddressErrors -> m ()
setShippingAddress self val = liftDOM (void (self ^. jss "shippingAddress" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-shippingaddress PaymentValidationErrors.shippingAddress specification>
getShippingAddress :: (MonadDOM m) => PaymentValidationErrors -> m (Maybe AddressErrors)
getShippingAddress self = liftDOM (((self ^. js "shippingAddress") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-shippingaddress PaymentValidationErrors.shippingAddress specification>
getShippingAddressUnsafe :: (MonadDOM m, HasCallStack) => PaymentValidationErrors -> m AddressErrors
getShippingAddressUnsafe self = liftDOM ((((self ^. js "shippingAddress") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-shippingaddress PaymentValidationErrors.shippingAddress specification>
getShippingAddressUnchecked :: (MonadDOM m) => PaymentValidationErrors -> m AddressErrors
getShippingAddressUnchecked self = liftDOM (((self ^. js "shippingAddress") >>= fromJSValUnchecked))

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

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

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-error PaymentValidationErrors.error specification>
getErrorUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PaymentValidationErrors -> 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-paymentvalidationerrors-error PaymentValidationErrors.error specification>
getErrorUnchecked :: (MonadDOM m, FromJSString result) => PaymentValidationErrors -> m result
getErrorUnchecked self = liftDOM (((self ^. js "error") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-paymentmethod PaymentValidationErrors.paymentMethod specification>
setPaymentMethod :: (MonadDOM m) => PaymentValidationErrors -> GObject -> m ()
setPaymentMethod self val = liftDOM (void (self ^. jss "paymentMethod" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-paymentmethod PaymentValidationErrors.paymentMethod specification>
getPaymentMethod :: (MonadDOM m) => PaymentValidationErrors -> m (Maybe GObject)
getPaymentMethod self = liftDOM (((self ^. js "paymentMethod") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-paymentmethod PaymentValidationErrors.paymentMethod specification>
getPaymentMethodUnsafe :: (MonadDOM m, HasCallStack) => PaymentValidationErrors -> m GObject
getPaymentMethodUnsafe self = liftDOM ((((self ^. js "paymentMethod") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/payment-request/#dom-paymentvalidationerrors-paymentmethod PaymentValidationErrors.paymentMethod specification>
getPaymentMethodUnchecked :: (MonadDOM m) => PaymentValidationErrors -> m GObject
getPaymentMethodUnchecked self = liftDOM (((self ^. js "paymentMethod") >>= fromJSValUnchecked))