PublicKeyCredentialUserEntityJSON.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.PublicKeyCredentialUserEntityJSON
       (newPublicKeyCredentialUserEntityJSON, setId, getId, setName, getName, setDisplayName, getDisplayName, PublicKeyCredentialUserEntityJSON(..), gTypePublicKeyCredentialUserEntityJSON)
       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-publickeycredentialuserentityjson PublicKeyCredentialUserEntityJSON specification>
newPublicKeyCredentialUserEntityJSON :: (MonadDOM m, ToJSString id, ToJSString name, ToJSString displayName) => id -> name -> displayName -> m PublicKeyCredentialUserEntityJSON
newPublicKeyCredentialUserEntityJSON id name displayName = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "id" (toJSVal id)) P.>> (o ^. jss "name" (toJSVal name)) P.>> (o ^. jss "displayName" (toJSVal displayName)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialuserentityjson-id PublicKeyCredentialUserEntityJSON.id specification>
setId :: (MonadDOM m, ToJSString val) => PublicKeyCredentialUserEntityJSON -> val -> m ()
setId self val = liftDOM (void (self ^. jss "id" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialuserentityjson-id PublicKeyCredentialUserEntityJSON.id specification>
getId :: (MonadDOM m, FromJSString result) => PublicKeyCredentialUserEntityJSON -> m result
getId self = liftDOM (((self ^. js "id") >>= fromJSValUnchecked))

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

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

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialuserentityjson-displayname PublicKeyCredentialUserEntityJSON.displayName specification>
setDisplayName :: (MonadDOM m, ToJSString val) => PublicKeyCredentialUserEntityJSON -> val -> m ()
setDisplayName self val = liftDOM (void (self ^. jss "displayName" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialuserentityjson-displayname PublicKeyCredentialUserEntityJSON.displayName specification>
getDisplayName :: (MonadDOM m, FromJSString result) => PublicKeyCredentialUserEntityJSON -> m result
getDisplayName self = liftDOM (((self ^. js "displayName") >>= fromJSValUnchecked))