jsaddle-dom-0.10.0.0: src/JSDOM/Generated/JsonWebKey.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webcrypto-2 (webref). Do not edit.
module JSDOM.Generated.JsonWebKey
       (newJsonWebKey, setKty, getKty, getKtyUnsafe, getKtyUnchecked, setUse, getUse, getUseUnsafe, getUseUnchecked, setKeyOps, getKeyOps, getKeyOpsUnsafe, getKeyOpsUnchecked, setAlg, getAlg, getAlgUnsafe, getAlgUnchecked, setExt, getExt, getExtUnsafe, getExtUnchecked, setCrv, getCrv, getCrvUnsafe, getCrvUnchecked, setX, getX, getXUnsafe, getXUnchecked, setY, getY, getYUnsafe, getYUnchecked, setD, getD, getDUnsafe, getDUnchecked, setN, getN, getNUnsafe, getNUnchecked, setE, getE, getEUnsafe, getEUnchecked, setP, getP, getPUnsafe, getPUnchecked, setQ, getQ, getQUnsafe, getQUnchecked, setDp, getDp, getDpUnsafe, getDpUnchecked, setDq, getDq, getDqUnsafe, getDqUnchecked, setQi, getQi, getQiUnsafe, getQiUnchecked, setOth, getOth, getOthUnsafe, getOthUnchecked, setK, getK, getKUnsafe, getKUnchecked, setPub, getPub, getPubUnsafe, getPubUnchecked, setPriv, getPriv, getPrivUnsafe, getPrivUnchecked, JsonWebKey(..), gTypeJsonWebKey)
       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/webcrypto/#dfn-JsonWebKey JsonWebKey specification>
newJsonWebKey :: (MonadDOM m) => m JsonWebKey
newJsonWebKey = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-kty JsonWebKey.kty specification>
setKty :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setKty self val = liftDOM (void (self ^. jss "kty" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-kty JsonWebKey.kty specification>
getKty :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getKty self = liftDOM (((self ^. js "kty") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-kty JsonWebKey.kty specification>
getKtyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getKtyUnsafe self = liftDOM ((((self ^. js "kty") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-kty JsonWebKey.kty specification>
getKtyUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getKtyUnchecked self = liftDOM (((self ^. js "kty") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-use JsonWebKey.use specification>
setUse :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setUse self val = liftDOM (void (self ^. jss "use" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-use JsonWebKey.use specification>
getUse :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getUse self = liftDOM (((self ^. js "use") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-use JsonWebKey.use specification>
getUseUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getUseUnsafe self = liftDOM ((((self ^. js "use") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-use JsonWebKey.use specification>
getUseUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getUseUnchecked self = liftDOM (((self ^. js "use") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-key_ops JsonWebKey.key_ops specification>
setKeyOps :: (MonadDOM m, ToJSString val) => JsonWebKey -> [val] -> m ()
setKeyOps self val = liftDOM (void (self ^. jss "key_ops" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-key_ops JsonWebKey.key_ops specification>
getKeyOps :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe [result])
getKeyOps self = liftDOM (((self ^. js "key_ops") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-key_ops JsonWebKey.key_ops specification>
getKeyOpsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m [result]
getKeyOpsUnsafe self = liftDOM ((((self ^. js "key_ops") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-key_ops JsonWebKey.key_ops specification>
getKeyOpsUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m [result]
getKeyOpsUnchecked self = liftDOM (((self ^. js "key_ops") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-alg JsonWebKey.alg specification>
setAlg :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setAlg self val = liftDOM (void (self ^. jss "alg" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-alg JsonWebKey.alg specification>
getAlg :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getAlg self = liftDOM (((self ^. js "alg") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-alg JsonWebKey.alg specification>
getAlgUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getAlgUnsafe self = liftDOM ((((self ^. js "alg") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-alg JsonWebKey.alg specification>
getAlgUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getAlgUnchecked self = liftDOM (((self ^. js "alg") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-ext JsonWebKey.ext specification>
setExt :: (MonadDOM m) => JsonWebKey -> Bool -> m ()
setExt self val = liftDOM (void (self ^. jss "ext" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-ext JsonWebKey.ext specification>
getExt :: (MonadDOM m) => JsonWebKey -> m (Maybe Bool)
getExt self = liftDOM (((self ^. js "ext") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-ext JsonWebKey.ext specification>
getExtUnsafe :: (MonadDOM m, HasCallStack) => JsonWebKey -> m Bool
getExtUnsafe self = liftDOM ((((self ^. js "ext") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-ext JsonWebKey.ext specification>
getExtUnchecked :: (MonadDOM m) => JsonWebKey -> m Bool
getExtUnchecked self = liftDOM (((self ^. js "ext") >>= valToBool))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-crv JsonWebKey.crv specification>
setCrv :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setCrv self val = liftDOM (void (self ^. jss "crv" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-crv JsonWebKey.crv specification>
getCrv :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getCrv self = liftDOM (((self ^. js "crv") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-crv JsonWebKey.crv specification>
getCrvUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getCrvUnsafe self = liftDOM ((((self ^. js "crv") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-crv JsonWebKey.crv specification>
getCrvUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getCrvUnchecked self = liftDOM (((self ^. js "crv") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-x JsonWebKey.x specification>
setX :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setX self val = liftDOM (void (self ^. jss "x" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-x JsonWebKey.x specification>
getX :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getX self = liftDOM (((self ^. js "x") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-x JsonWebKey.x specification>
getXUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getXUnsafe self = liftDOM ((((self ^. js "x") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-x JsonWebKey.x specification>
getXUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getXUnchecked self = liftDOM (((self ^. js "x") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-y JsonWebKey.y specification>
setY :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setY self val = liftDOM (void (self ^. jss "y" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-y JsonWebKey.y specification>
getY :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getY self = liftDOM (((self ^. js "y") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-y JsonWebKey.y specification>
getYUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getYUnsafe self = liftDOM ((((self ^. js "y") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-y JsonWebKey.y specification>
getYUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getYUnchecked self = liftDOM (((self ^. js "y") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-d JsonWebKey.d specification>
setD :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setD self val = liftDOM (void (self ^. jss "d" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-d JsonWebKey.d specification>
getD :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getD self = liftDOM (((self ^. js "d") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-d JsonWebKey.d specification>
getDUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getDUnsafe self = liftDOM ((((self ^. js "d") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-d JsonWebKey.d specification>
getDUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getDUnchecked self = liftDOM (((self ^. js "d") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-n JsonWebKey.n specification>
setN :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setN self val = liftDOM (void (self ^. jss "n" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-n JsonWebKey.n specification>
getN :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getN self = liftDOM (((self ^. js "n") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-n JsonWebKey.n specification>
getNUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getNUnsafe self = liftDOM ((((self ^. js "n") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-n JsonWebKey.n specification>
getNUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getNUnchecked self = liftDOM (((self ^. js "n") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-e JsonWebKey.e specification>
setE :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setE self val = liftDOM (void (self ^. jss "e" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-e JsonWebKey.e specification>
getE :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getE self = liftDOM (((self ^. js "e") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-e JsonWebKey.e specification>
getEUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getEUnsafe self = liftDOM ((((self ^. js "e") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-e JsonWebKey.e specification>
getEUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getEUnchecked self = liftDOM (((self ^. js "e") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-p JsonWebKey.p specification>
setP :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setP self val = liftDOM (void (self ^. jss "p" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-p JsonWebKey.p specification>
getP :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getP self = liftDOM (((self ^. js "p") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-p JsonWebKey.p specification>
getPUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getPUnsafe self = liftDOM ((((self ^. js "p") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-p JsonWebKey.p specification>
getPUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getPUnchecked self = liftDOM (((self ^. js "p") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-q JsonWebKey.q specification>
setQ :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setQ self val = liftDOM (void (self ^. jss "q" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-q JsonWebKey.q specification>
getQ :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getQ self = liftDOM (((self ^. js "q") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-q JsonWebKey.q specification>
getQUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getQUnsafe self = liftDOM ((((self ^. js "q") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-q JsonWebKey.q specification>
getQUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getQUnchecked self = liftDOM (((self ^. js "q") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dp JsonWebKey.dp specification>
setDp :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setDp self val = liftDOM (void (self ^. jss "dp" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dp JsonWebKey.dp specification>
getDp :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getDp self = liftDOM (((self ^. js "dp") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dp JsonWebKey.dp specification>
getDpUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getDpUnsafe self = liftDOM ((((self ^. js "dp") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dp JsonWebKey.dp specification>
getDpUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getDpUnchecked self = liftDOM (((self ^. js "dp") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dq JsonWebKey.dq specification>
setDq :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setDq self val = liftDOM (void (self ^. jss "dq" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dq JsonWebKey.dq specification>
getDq :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getDq self = liftDOM (((self ^. js "dq") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dq JsonWebKey.dq specification>
getDqUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getDqUnsafe self = liftDOM ((((self ^. js "dq") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-dq JsonWebKey.dq specification>
getDqUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getDqUnchecked self = liftDOM (((self ^. js "dq") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-qi JsonWebKey.qi specification>
setQi :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setQi self val = liftDOM (void (self ^. jss "qi" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-qi JsonWebKey.qi specification>
getQi :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getQi self = liftDOM (((self ^. js "qi") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-qi JsonWebKey.qi specification>
getQiUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getQiUnsafe self = liftDOM ((((self ^. js "qi") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-qi JsonWebKey.qi specification>
getQiUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getQiUnchecked self = liftDOM (((self ^. js "qi") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-oth JsonWebKey.oth specification>
setOth :: (MonadDOM m) => JsonWebKey -> [RsaOtherPrimesInfo] -> m ()
setOth self val = liftDOM (void (self ^. jss "oth" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-oth JsonWebKey.oth specification>
getOth :: (MonadDOM m) => JsonWebKey -> m (Maybe [RsaOtherPrimesInfo])
getOth self = liftDOM (((self ^. js "oth") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-oth JsonWebKey.oth specification>
getOthUnsafe :: (MonadDOM m, HasCallStack) => JsonWebKey -> m [RsaOtherPrimesInfo]
getOthUnsafe self = liftDOM ((((self ^. js "oth") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-oth JsonWebKey.oth specification>
getOthUnchecked :: (MonadDOM m) => JsonWebKey -> m [RsaOtherPrimesInfo]
getOthUnchecked self = liftDOM (((self ^. js "oth") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-k JsonWebKey.k specification>
setK :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setK self val = liftDOM (void (self ^. jss "k" (toJSVal val)))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-k JsonWebKey.k specification>
getK :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getK self = liftDOM (((self ^. js "k") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-k JsonWebKey.k specification>
getKUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getKUnsafe self = liftDOM ((((self ^. js "k") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcrypto/#dom-jsonwebkey-k JsonWebKey.k specification>
getKUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getKUnchecked self = liftDOM (((self ^. js "k") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-pub JsonWebKey.pub specification>
setPub :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setPub self val = liftDOM (void (self ^. jss "pub" (toJSVal val)))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-pub JsonWebKey.pub specification>
getPub :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getPub self = liftDOM (((self ^. js "pub") >>= fromMaybeJSString))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-pub JsonWebKey.pub specification>
getPubUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getPubUnsafe self = liftDOM ((((self ^. js "pub") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-pub JsonWebKey.pub specification>
getPubUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getPubUnchecked self = liftDOM (((self ^. js "pub") >>= fromJSValUnchecked))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-priv JsonWebKey.priv specification>
setPriv :: (MonadDOM m, ToJSString val) => JsonWebKey -> val -> m ()
setPriv self val = liftDOM (void (self ^. jss "priv" (toJSVal val)))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-priv JsonWebKey.priv specification>
getPriv :: (MonadDOM m, FromJSString result) => JsonWebKey -> m (Maybe result)
getPriv self = liftDOM (((self ^. js "priv") >>= fromMaybeJSString))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-priv JsonWebKey.priv specification>
getPrivUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => JsonWebKey -> m result
getPrivUnsafe self = liftDOM ((((self ^. js "priv") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://wicg.github.io/webcrypto-modern-algos/#dom-jsonwebkey-priv JsonWebKey.priv specification>
getPrivUnchecked :: (MonadDOM m, FromJSString result) => JsonWebKey -> m result
getPrivUnchecked self = liftDOM (((self ^. js "priv") >>= fromJSValUnchecked))