BrowserBoundSignature.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from secure-payment-confirmation (webref). Do not edit.
module JSDOM.Generated.BrowserBoundSignature
       (newBrowserBoundSignature, setSignature, getSignature, BrowserBoundSignature(..), gTypeBrowserBoundSignature)
       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/secure-payment-confirmation/#dictdef-browserboundsignature BrowserBoundSignature specification>
newBrowserBoundSignature :: (MonadDOM m, IsArrayBuffer signature) => signature -> m BrowserBoundSignature
newBrowserBoundSignature signature = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "signature" (toJSVal signature)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>
setSignature :: (MonadDOM m, IsArrayBuffer val) => BrowserBoundSignature -> val -> m ()
setSignature self val = liftDOM (void (self ^. jss "signature" (toJSVal val)))

-- | <https://w3c.github.io/secure-payment-confirmation/#dom-browserboundsignature-signature BrowserBoundSignature.signature specification>
getSignature :: (MonadDOM m) => BrowserBoundSignature -> m ArrayBuffer
getSignature self = liftDOM (((self ^. js "signature") >>= fromJSValUnchecked))