AuthenticationExtensionsPRFInputs.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.AuthenticationExtensionsPRFInputs
       (newAuthenticationExtensionsPRFInputs, setEval, getEval, getEvalUnsafe, getEvalUnchecked, setEvalByCredential, getEvalByCredential, getEvalByCredentialUnsafe, getEvalByCredentialUnchecked, AuthenticationExtensionsPRFInputs(..), gTypeAuthenticationExtensionsPRFInputs)
       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-authenticationextensionsprfinputs AuthenticationExtensionsPRFInputs specification>
newAuthenticationExtensionsPRFInputs :: (MonadDOM m) => m AuthenticationExtensionsPRFInputs
newAuthenticationExtensionsPRFInputs = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>
setEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> AuthenticationExtensionsPRFValues -> m ()
setEval self val = liftDOM (void (self ^. jss "eval" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>
getEval :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe AuthenticationExtensionsPRFValues)
getEval self = liftDOM (((self ^. js "eval") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>
getEvalUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues
getEvalUnsafe self = liftDOM ((((self ^. js "eval") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-eval AuthenticationExtensionsPRFInputs.eval specification>
getEvalUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m AuthenticationExtensionsPRFValues
getEvalUnchecked self = liftDOM (((self ^. js "eval") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>
setEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> (Record JSString JSVal) -> m ()
setEvalByCredential self val = liftDOM (void (self ^. jss "evalByCredential" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>
getEvalByCredential :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Maybe (Record JSString JSVal))
getEvalByCredential self = liftDOM (((self ^. js "evalByCredential") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>
getEvalByCredentialUnsafe :: (MonadDOM m, HasCallStack) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal)
getEvalByCredentialUnsafe self = liftDOM ((((self ^. js "evalByCredential") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webauthn/#dom-authenticationextensionsprfinputs-evalbycredential AuthenticationExtensionsPRFInputs.evalByCredential specification>
getEvalByCredentialUnchecked :: (MonadDOM m) => AuthenticationExtensionsPRFInputs -> m (Record JSString JSVal)
getEvalByCredentialUnchecked self = liftDOM (((self ^. js "evalByCredential") >>= fromJSValUnchecked))