PublicKeyCredentialParameters.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.PublicKeyCredentialParameters
       (newPublicKeyCredentialParameters, setType, getType, setAlg, getAlg, PublicKeyCredentialParameters(..), gTypePublicKeyCredentialParameters)
       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-publickeycredentialparameters PublicKeyCredentialParameters specification>
newPublicKeyCredentialParameters :: (MonadDOM m, ToJSString type') => type' -> Int -> m PublicKeyCredentialParameters
newPublicKeyCredentialParameters type' alg = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "type" (toJSVal type')) P.>> (o ^. jss "alg" (toJSVal alg)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialparameters-type PublicKeyCredentialParameters.type specification>
setType :: (MonadDOM m, ToJSString val) => PublicKeyCredentialParameters -> val -> m ()
setType self val = liftDOM (void (self ^. jss "type" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialparameters-type PublicKeyCredentialParameters.type specification>
getType :: (MonadDOM m, FromJSString result) => PublicKeyCredentialParameters -> m result
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialparameters-alg PublicKeyCredentialParameters.alg specification>
setAlg :: (MonadDOM m) => PublicKeyCredentialParameters -> Int -> m ()
setAlg self val = liftDOM (void (self ^. jss "alg" (toJSVal val)))

-- | <https://w3c.github.io/webauthn/#dom-publickeycredentialparameters-alg PublicKeyCredentialParameters.alg specification>
getAlg :: (MonadDOM m) => PublicKeyCredentialParameters -> m Int
getAlg self = liftDOM ((P.round <$> ((self ^. js "alg") >>= valToNumber)))