CredentialCreationOptions.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.CredentialCreationOptions
       (newCredentialCreationOptions, setMediation, getMediation, getMediationUnsafe, getMediationUnchecked, setSignal, getSignal, getSignalUnsafe, getSignalUnchecked, setPassword, getPassword, getPasswordUnsafe, getPasswordUnchecked, setFederated, getFederated, getFederatedUnsafe, getFederatedUnchecked, setDigital, getDigital, getDigitalUnsafe, getDigitalUnchecked, setPublicKey, getPublicKey, getPublicKeyUnsafe, getPublicKeyUnchecked, CredentialCreationOptions(..), gTypeCredentialCreationOptions)
       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-credentialcreationoptions CredentialCreationOptions specification>
newCredentialCreationOptions :: (MonadDOM m) => m CredentialCreationOptions
newCredentialCreationOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

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

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

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>
getMediationUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> 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-credentialcreationoptions-mediation CredentialCreationOptions.mediation specification>
getMediationUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m CredentialMediationRequirement
getMediationUnchecked self = liftDOM (((self ^. js "mediation") >>= fromJSValUnchecked))

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

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

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-signal CredentialCreationOptions.signal specification>
getSignalUnsafe :: (MonadDOM m, HasCallStack) => CredentialCreationOptions -> 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-credentialcreationoptions-signal CredentialCreationOptions.signal specification>
getSignalUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m AbortSignal
getSignalUnchecked self = liftDOM (((self ^. js "signal") >>= fromJSValUnchecked))

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

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

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

-- | <https://w3c.github.io/webappsec-credential-management/#dom-credentialcreationoptions-password CredentialCreationOptions.password specification>
getPasswordUnchecked :: (MonadDOM m) => CredentialCreationOptions -> m PasswordCredentialInit
getPasswordUnchecked self = liftDOM (((self ^. js "password") >>= fromJSValUnchecked))

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

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

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

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

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

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

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

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

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

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

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

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