PublicKeyCredentialRequestOptions.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.PublicKeyCredentialRequestOptions
       (newPublicKeyCredentialRequestOptions, setChallenge, getChallenge, setTimeout, getTimeout, getTimeoutUnsafe, getTimeoutUnchecked, setRpId, getRpId, getRpIdUnsafe, getRpIdUnchecked, setAllowCredentials, getAllowCredentials, getAllowCredentialsUnsafe, getAllowCredentialsUnchecked, setUserVerification, getUserVerification, getUserVerificationUnsafe, getUserVerificationUnchecked, setHints, getHints, getHintsUnsafe, getHintsUnchecked, setExtensions, getExtensions, getExtensionsUnsafe, getExtensionsUnchecked, PublicKeyCredentialRequestOptions(..), gTypePublicKeyCredentialRequestOptions)
       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-publickeycredentialrequestoptions PublicKeyCredentialRequestOptions specification>
newPublicKeyCredentialRequestOptions :: (MonadDOM m, IsBufferSource challenge) => challenge -> m PublicKeyCredentialRequestOptions
newPublicKeyCredentialRequestOptions challenge = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "challenge" (toJSVal challenge)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-challenge PublicKeyCredentialRequestOptions.challenge specification>
setChallenge :: (MonadDOM m, IsBufferSource val) => PublicKeyCredentialRequestOptions -> val -> m ()
setChallenge self val = liftDOM (void (self ^. jss "challenge" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-challenge PublicKeyCredentialRequestOptions.challenge specification>
getChallenge :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m BufferSource
getChallenge self = liftDOM (((self ^. js "challenge") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-timeout PublicKeyCredentialRequestOptions.timeout specification>
setTimeout :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> Word -> m ()
setTimeout self val = liftDOM (void (self ^. jss "timeout" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-timeout PublicKeyCredentialRequestOptions.timeout specification>
getTimeout :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m (Maybe Word)
getTimeout self = liftDOM (((self ^. js "timeout") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-timeout PublicKeyCredentialRequestOptions.timeout specification>
getTimeoutUnsafe :: (MonadDOM m, HasCallStack) => PublicKeyCredentialRequestOptions -> m Word
getTimeoutUnsafe self = liftDOM ((((self ^. js "timeout") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-timeout PublicKeyCredentialRequestOptions.timeout specification>
getTimeoutUnchecked :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m Word
getTimeoutUnchecked self = liftDOM ((P.round <$> ((self ^. js "timeout") >>= valToNumber)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-rpid PublicKeyCredentialRequestOptions.rpId specification>
setRpId :: (MonadDOM m, ToJSString val) => PublicKeyCredentialRequestOptions -> val -> m ()
setRpId self val = liftDOM (void (self ^. jss "rpId" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-rpid PublicKeyCredentialRequestOptions.rpId specification>
getRpId :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m (Maybe result)
getRpId self = liftDOM (((self ^. js "rpId") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-rpid PublicKeyCredentialRequestOptions.rpId specification>
getRpIdUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PublicKeyCredentialRequestOptions -> m result
getRpIdUnsafe self = liftDOM ((((self ^. js "rpId") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-rpid PublicKeyCredentialRequestOptions.rpId specification>
getRpIdUnchecked :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m result
getRpIdUnchecked self = liftDOM (((self ^. js "rpId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-allowcredentials PublicKeyCredentialRequestOptions.allowCredentials specification>
setAllowCredentials :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> [PublicKeyCredentialDescriptor] -> m ()
setAllowCredentials self val = liftDOM (void (self ^. jss "allowCredentials" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-allowcredentials PublicKeyCredentialRequestOptions.allowCredentials specification>
getAllowCredentials :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m (Maybe [PublicKeyCredentialDescriptor])
getAllowCredentials self = liftDOM (((self ^. js "allowCredentials") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-allowcredentials PublicKeyCredentialRequestOptions.allowCredentials specification>
getAllowCredentialsUnsafe :: (MonadDOM m, HasCallStack) => PublicKeyCredentialRequestOptions -> m [PublicKeyCredentialDescriptor]
getAllowCredentialsUnsafe self = liftDOM ((((self ^. js "allowCredentials") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-allowcredentials PublicKeyCredentialRequestOptions.allowCredentials specification>
getAllowCredentialsUnchecked :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m [PublicKeyCredentialDescriptor]
getAllowCredentialsUnchecked self = liftDOM (((self ^. js "allowCredentials") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-userverification PublicKeyCredentialRequestOptions.userVerification specification>
setUserVerification :: (MonadDOM m, ToJSString val) => PublicKeyCredentialRequestOptions -> val -> m ()
setUserVerification self val = liftDOM (void (self ^. jss "userVerification" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-userverification PublicKeyCredentialRequestOptions.userVerification specification>
getUserVerification :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m (Maybe result)
getUserVerification self = liftDOM (((self ^. js "userVerification") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-userverification PublicKeyCredentialRequestOptions.userVerification specification>
getUserVerificationUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PublicKeyCredentialRequestOptions -> m result
getUserVerificationUnsafe self = liftDOM ((((self ^. js "userVerification") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-userverification PublicKeyCredentialRequestOptions.userVerification specification>
getUserVerificationUnchecked :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m result
getUserVerificationUnchecked self = liftDOM (((self ^. js "userVerification") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-hints PublicKeyCredentialRequestOptions.hints specification>
setHints :: (MonadDOM m, ToJSString val) => PublicKeyCredentialRequestOptions -> [val] -> m ()
setHints self val = liftDOM (void (self ^. jss "hints" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-hints PublicKeyCredentialRequestOptions.hints specification>
getHints :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m (Maybe [result])
getHints self = liftDOM (((self ^. js "hints") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-hints PublicKeyCredentialRequestOptions.hints specification>
getHintsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PublicKeyCredentialRequestOptions -> m [result]
getHintsUnsafe self = liftDOM ((((self ^. js "hints") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-hints PublicKeyCredentialRequestOptions.hints specification>
getHintsUnchecked :: (MonadDOM m, FromJSString result) => PublicKeyCredentialRequestOptions -> m [result]
getHintsUnchecked self = liftDOM (((self ^. js "hints") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-extensions PublicKeyCredentialRequestOptions.extensions specification>
setExtensions :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> AuthenticationExtensionsClientInputs -> m ()
setExtensions self val = liftDOM (void (self ^. jss "extensions" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-extensions PublicKeyCredentialRequestOptions.extensions specification>
getExtensions :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m (Maybe AuthenticationExtensionsClientInputs)
getExtensions self = liftDOM (((self ^. js "extensions") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-extensions PublicKeyCredentialRequestOptions.extensions specification>
getExtensionsUnsafe :: (MonadDOM m, HasCallStack) => PublicKeyCredentialRequestOptions -> m AuthenticationExtensionsClientInputs
getExtensionsUnsafe self = liftDOM ((((self ^. js "extensions") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialrequestoptions-extensions PublicKeyCredentialRequestOptions.extensions specification>
getExtensionsUnchecked :: (MonadDOM m) => PublicKeyCredentialRequestOptions -> m AuthenticationExtensionsClientInputs
getExtensionsUnchecked self = liftDOM (((self ^. js "extensions") >>= fromJSValUnchecked))