CredentialRequestOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from credential-management-1 (webref). Do not edit.
module JSDOM.Generated.CredentialRequestOptions
       (newCredentialRequestOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setUiMode, getUiMode, getUiModeUnsafe, getUiModeUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setIdentity, getIdentity, getIdentityUnsafe, getIdentityUnchecked, setOtp, getOtp, getOtpUnsafe, getOtpUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialRequestOptions(..), gTypeCredentialRequestOptions)
       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/webappsec-credential-management/#dictdef-credentialrequestoptions CredentialRequestOptions specification>
newCredentialRequestOptions :: (MonadDOM m) => m CredentialRequestOptions
newCredentialRequestOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>
setMediation :: (MonadDOM m) => CredentialRequestOptions -> CredentialMediationRequirement -> m ()
setMediation self val = liftDOM (void (self ^. jss "mediation" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>
getMediation :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe CredentialMediationRequirement)
getMediation self = liftDOM (((self ^. js "mediation") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>
getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m CredentialMediationRequirement
getMediationUnsafe self = liftDOM ((((self ^. js "mediation") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-mediation CredentialRequestOptions.mediation specification>
getMediationUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m CredentialMediationRequirement
getMediationUnchecked self = liftDOM (((self ^. js "mediation") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>
setUiMode :: (MonadDOM m, ToJSString val) => CredentialRequestOptions -> val -> m ()
setUiMode self val = liftDOM (void (self ^. jss "uiMode" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>
getUiMode :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m (Maybe result)
getUiMode self = liftDOM (((self ^. js "uiMode") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>
getUiModeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CredentialRequestOptions -> m result
getUiModeUnsafe self = liftDOM ((((self ^. js "uiMode") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-uimode CredentialRequestOptions.uiMode specification>
getUiModeUnchecked :: (MonadDOM m, FromJSString result) => CredentialRequestOptions -> m result
getUiModeUnchecked self = liftDOM (((self ^. js "uiMode") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>
setSignal :: (MonadDOM m, IsAbortSignal val) => CredentialRequestOptions -> val -> m ()
setSignal self val = liftDOM (void (self ^. jss "signal" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>
getSignal :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe AbortSignal)
getSignal self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>
getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m AbortSignal
getSignalUnsafe self = liftDOM ((((self ^. js "signal") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-signal CredentialRequestOptions.signal specification>
getSignalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m AbortSignal
getSignalUnchecked self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>
setPassword :: (MonadDOM m) => CredentialRequestOptions -> Bool -> m ()
setPassword self val = liftDOM (void (self ^. jss "password" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>
getPassword :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe Bool)
getPassword self = liftDOM (((self ^. js "password") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>
getPasswordUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m Bool
getPasswordUnsafe self = liftDOM ((((self ^. js "password") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-password CredentialRequestOptions.password specification>
getPasswordUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m Bool
getPasswordUnchecked self = liftDOM (((self ^. js "password") >>= valToBool))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>
setFederated :: (MonadDOM m) => CredentialRequestOptions -> FederatedCredentialRequestOptions -> m ()
setFederated self val = liftDOM (void (self ^. jss "federated" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>
getFederated :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe FederatedCredentialRequestOptions)
getFederated self = liftDOM (((self ^. js "federated") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>
getFederatedUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m FederatedCredentialRequestOptions
getFederatedUnsafe self = liftDOM ((((self ^. js "federated") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialrequestoptions-federated CredentialRequestOptions.federated specification>
getFederatedUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m FederatedCredentialRequestOptions
getFederatedUnchecked self = liftDOM (((self ^. js "federated") >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>
setDigital :: (MonadDOM m) => CredentialRequestOptions -> DigitalCredentialRequestOptions -> m ()
setDigital self val = liftDOM (void (self ^. jss "digital" (toJSVal val)))

-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>
getDigital :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe DigitalCredentialRequestOptions)
getDigital self = liftDOM (((self ^. js "digital") >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>
getDigitalUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m DigitalCredentialRequestOptions
getDigitalUnsafe self = liftDOM ((((self ^. js "digital") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c-fedid.github.io/digital-credentials/#dom-credentialrequestoptions-digital CredentialRequestOptions.digital specification>
getDigitalUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m DigitalCredentialRequestOptions
getDigitalUnchecked self = liftDOM (((self ^. js "digital") >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>
setIdentity :: (MonadDOM m) => CredentialRequestOptions -> IdentityCredentialRequestOptions -> m ()
setIdentity self val = liftDOM (void (self ^. jss "identity" (toJSVal val)))

-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>
getIdentity :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe IdentityCredentialRequestOptions)
getIdentity self = liftDOM (((self ^. js "identity") >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>
getIdentityUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m IdentityCredentialRequestOptions
getIdentityUnsafe self = liftDOM ((((self ^. js "identity") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c-fedid.github.io/FedCM/#dom-credentialrequestoptions-identity CredentialRequestOptions.identity specification>
getIdentityUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m IdentityCredentialRequestOptions
getIdentityUnchecked self = liftDOM (((self ^. js "identity") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>
setOtp :: (MonadDOM m) => CredentialRequestOptions -> OTPCredentialRequestOptions -> m ()
setOtp self val = liftDOM (void (self ^. jss "otp" (toJSVal val)))

-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>
getOtp :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe OTPCredentialRequestOptions)
getOtp self = liftDOM (((self ^. js "otp") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>
getOtpUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m OTPCredentialRequestOptions
getOtpUnsafe self = liftDOM ((((self ^. js "otp") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://wicg.github.io/web-otp/#dom-credentialrequestoptions-otp CredentialRequestOptions.otp specification>
getOtpUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m OTPCredentialRequestOptions
getOtpUnchecked self = liftDOM (((self ^. js "otp") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>
setPublicKey :: (MonadDOM m) => CredentialRequestOptions -> PublicKeyCredentialRequestOptions -> m ()
setPublicKey self val = liftDOM (void (self ^. jss "publicKey" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>
getPublicKey :: (MonadDOM m) => CredentialRequestOptions -> m (Maybe PublicKeyCredentialRequestOptions)
getPublicKey self = liftDOM (((self ^. js "publicKey") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>
getPublicKeyUnsafe :: (MonadDOM m, HasCallStack) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions
getPublicKeyUnsafe self = liftDOM ((((self ^. js "publicKey") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-credentialrequestoptions-publickey CredentialRequestOptions.publicKey specification>
getPublicKeyUnchecked :: (MonadDOM m) => CredentialRequestOptions -> m PublicKeyCredentialRequestOptions
getPublicKeyUnchecked self = liftDOM (((self ^. js "publicKey") >>= fromJSValUnchecked))