PublicKeyCredentialEntity.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webauthn-4 (webref). Do not edit.
module JSDOM.Generated.PublicKeyCredentialEntity
       (newPublicKeyCredentialEntity, setName, getName, PublicKeyCredentialEntity(..), gTypePublicKeyCredentialEntity, IsPublicKeyCredentialEntity, toPublicKeyCredentialEntity)
       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/webauthn/#dictdef-publickeycredentialentity PublicKeyCredentialEntity specification>
newPublicKeyCredentialEntity :: (MonadDOM m, ToJSString name) => name -> m PublicKeyCredentialEntity
newPublicKeyCredentialEntity name = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "name" (toJSVal name)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialentity-name PublicKeyCredentialEntity.name specification>
setName :: (MonadDOM m, IsPublicKeyCredentialEntity self, ToJSString val) => self -> val -> m ()
setName self val = liftDOM (void ((Types.toPublicKeyCredentialEntity self) ^. jss "name" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialentity-name PublicKeyCredentialEntity.name specification>
getName :: (MonadDOM m, IsPublicKeyCredentialEntity self, FromJSString result) => self -> m result
getName self = liftDOM ((((Types.toPublicKeyCredentialEntity self) ^. js "name") >>= fromJSValUnchecked))