ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/PaymentResponse.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from payment-request (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.PaymentResponse
       (js_complete, js_retry, js_toJSON, js_getRequestId, js_getMethodName, js_getDetails, js_getShippingAddress, js_getShippingOption, js_getPayerName, js_getPayerEmail, js_getPayerPhone, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"complete\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_complete :: PaymentResponse -> JSVal -> JSVal -> IO (JSVal, ())
-- | <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 ((((P.maybe (P.return jsUndefined) toJSVal result') >>= \a2' -> (P.maybe (P.return jsUndefined) toJSVal details) >>= \a3' -> js_complete (self) a2' a3') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"retry\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_retry :: PaymentResponse -> JSVal -> IO (JSVal, ())
-- | <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 ((((P.maybe (P.return jsUndefined) toJSVal errorFields) >>= \a2' -> js_retry (self) a2') >>= checkPromiseResult)))

foreign import javascript safe "(($1) => { return $1[\"toJSON\"](); })"
        js_toJSON :: PaymentResponse -> IO GObject
-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/toJSON MDN PaymentResponse.toJSON documentation>
toJSON :: (MonadDOM m) => PaymentResponse -> m GObject
toJSON self = liftDOM ((js_toJSON (self)))

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

foreign import javascript unsafe "(($1) => { return $1[\"requestId\"]; })"
        js_getRequestId :: PaymentResponse -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/requestId MDN PaymentResponse.requestId documentation>
getRequestId :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getRequestId self = liftDOM ((fromJSString <$> (js_getRequestId (self))))

foreign import javascript unsafe "(($1) => { return $1[\"methodName\"]; })"
        js_getMethodName :: PaymentResponse -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/methodName MDN PaymentResponse.methodName documentation>
getMethodName :: (MonadDOM m, FromJSString result) => PaymentResponse -> m result
getMethodName self = liftDOM ((fromJSString <$> (js_getMethodName (self))))

foreign import javascript unsafe "(($1) => { return $1[\"details\"]; })"
        js_getDetails :: PaymentResponse -> IO GObject
-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/details MDN PaymentResponse.details documentation>
getDetails :: (MonadDOM m) => PaymentResponse -> m GObject
getDetails self = liftDOM ((js_getDetails (self)))

foreign import javascript unsafe "(($1) => { return $1[\"shippingAddress\"]; })"
        js_getShippingAddress :: PaymentResponse -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingAddress MDN PaymentResponse.shippingAddress documentation>
getShippingAddress :: (MonadDOM m) => PaymentResponse -> m (Maybe ContactAddress)
getShippingAddress self = liftDOM (((js_getShippingAddress (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/PaymentResponse/shippingAddress MDN PaymentResponse.shippingAddress documentation>
getShippingAddressUnsafe :: (MonadDOM m, HasCallStack) => PaymentResponse -> m ContactAddress
getShippingAddressUnsafe self = liftDOM ((((js_getShippingAddress (self)) >>= 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 ((pFromJSVal <$> (js_getShippingAddress (self))))

foreign import javascript unsafe "(($1) => { return $1[\"shippingOption\"]; })"
        js_getShippingOption :: PaymentResponse -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getShippingOption (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getShippingOption (self))) >>= 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 ((pFromJSVal <$> (js_getShippingOption (self))))

foreign import javascript unsafe "(($1) => { return $1[\"payerName\"]; })"
        js_getPayerName :: PaymentResponse -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getPayerName (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getPayerName (self))) >>= 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 ((pFromJSVal <$> (js_getPayerName (self))))

foreign import javascript unsafe "(($1) => { return $1[\"payerEmail\"]; })"
        js_getPayerEmail :: PaymentResponse -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getPayerEmail (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getPayerEmail (self))) >>= 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 ((pFromJSVal <$> (js_getPayerEmail (self))))

foreign import javascript unsafe "(($1) => { return $1[\"payerPhone\"]; })"
        js_getPayerPhone :: PaymentResponse -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getPayerPhone (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getPayerPhone (self))) >>= 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 ((pFromJSVal <$> (js_getPayerPhone (self))))

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