PaymentItem.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.PaymentItem
       (newPaymentItem, setLabel, getLabel, setAmount, getAmount, setPending, getPending, getPendingUnsafe, getPendingUnchecked, PaymentItem(..), gTypePaymentItem)
       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-paymentitem PaymentItem specification>
newPaymentItem :: (MonadDOM m, ToJSString label) => label -> PaymentCurrencyAmount -> m PaymentItem
newPaymentItem label amount = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "label" (toJSVal label)) P.>> (o ^. jss "amount" (toJSVal amount)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-label PaymentItem.label specification>
setLabel :: (MonadDOM m, ToJSString val) => PaymentItem -> val -> m ()
setLabel self val = liftDOM (void (self ^. jss "label" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-label PaymentItem.label specification>
getLabel :: (MonadDOM m, FromJSString result) => PaymentItem -> m result
getLabel self = liftDOM (((self ^. js "label") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-amount PaymentItem.amount specification>
setAmount :: (MonadDOM m) => PaymentItem -> PaymentCurrencyAmount -> m ()
setAmount self val = liftDOM (void (self ^. jss "amount" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-amount PaymentItem.amount specification>
getAmount :: (MonadDOM m) => PaymentItem -> m PaymentCurrencyAmount
getAmount self = liftDOM (((self ^. js "amount") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-pending PaymentItem.pending specification>
setPending :: (MonadDOM m) => PaymentItem -> Bool -> m ()
setPending self val = liftDOM (void (self ^. jss "pending" (toJSVal val)))

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-pending PaymentItem.pending specification>
getPending :: (MonadDOM m) => PaymentItem -> m (Maybe Bool)
getPending self = liftDOM (((self ^. js "pending") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/payment-request/#dom-paymentitem-pending PaymentItem.pending specification>
getPendingUnchecked :: (MonadDOM m) => PaymentItem -> m Bool
getPendingUnchecked self = liftDOM (((self ^. js "pending") >>= valToBool))