PayerErrors.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.PayerErrors
       (newPayerErrors, setEmail, getEmail, getEmailUnsafe, getEmailUnchecked, setName, getName, getNameUnsafe, getNameUnchecked, setPhone, getPhone, getPhoneUnsafe, getPhoneUnchecked, PayerErrors(..), gTypePayerErrors)
       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-payererrors PayerErrors specification>
newPayerErrors :: (MonadDOM m) => m PayerErrors
newPayerErrors = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-email PayerErrors.email specification>
setEmail :: (MonadDOM m, ToJSString val) => PayerErrors -> val -> m ()
setEmail self val = liftDOM (void (self ^. jss "email" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-email PayerErrors.email specification>
getEmail :: (MonadDOM m, FromJSString result) => PayerErrors -> m (Maybe result)
getEmail self = liftDOM (((self ^. js "email") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/payment-request/#dom-payererrors-email PayerErrors.email specification>
getEmailUnchecked :: (MonadDOM m, FromJSString result) => PayerErrors -> m result
getEmailUnchecked self = liftDOM (((self ^. js "email") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-name PayerErrors.name specification>
setName :: (MonadDOM m, ToJSString val) => PayerErrors -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-name PayerErrors.name specification>
getName :: (MonadDOM m, FromJSString result) => PayerErrors -> m (Maybe result)
getName self = liftDOM (((self ^. js "name") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/payment-request/#dom-payererrors-name PayerErrors.name specification>
getNameUnchecked :: (MonadDOM m, FromJSString result) => PayerErrors -> m result
getNameUnchecked self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-phone PayerErrors.phone specification>
setPhone :: (MonadDOM m, ToJSString val) => PayerErrors -> val -> m ()
setPhone self val = liftDOM (void (self ^. jss "phone" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-payererrors-phone PayerErrors.phone specification>
getPhone :: (MonadDOM m, FromJSString result) => PayerErrors -> m (Maybe result)
getPhone self = liftDOM (((self ^. js "phone") >>= fromMaybeJSString))

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

-- | <https://w3c.github.io/payment-request/#dom-payererrors-phone PayerErrors.phone specification>
getPhoneUnchecked :: (MonadDOM m, FromJSString result) => PayerErrors -> m result
getPhoneUnchecked self = liftDOM (((self ^. js "phone") >>= fromJSValUnchecked))