HMACGetSecretInput.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fido-client-to-authenticator-protocol-v2.3 (webref). Do not edit.
module JSDOM.Generated.HMACGetSecretInput
       (newHMACGetSecretInput, setSalt1, getSalt1, setSalt2, getSalt2, getSalt2Unsafe, getSalt2Unchecked, HMACGetSecretInput(..), gTypeHMACGetSecretInput)
       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://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dictdef-hmacgetsecretinput HMACGetSecretInput specification>
newHMACGetSecretInput :: (MonadDOM m, IsArrayBuffer salt1) => salt1 -> m HMACGetSecretInput
newHMACGetSecretInput salt1 = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "salt1" (toJSVal salt1)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt1 HMACGetSecretInput.salt1 specification>
setSalt1 :: (MonadDOM m, IsArrayBuffer val) => HMACGetSecretInput -> val -> m ()
setSalt1 self val = liftDOM (void (self ^. jss "salt1" (toJSVal val)))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt1 HMACGetSecretInput.salt1 specification>
getSalt1 :: (MonadDOM m) => HMACGetSecretInput -> m ArrayBuffer
getSalt1 self = liftDOM (((self ^. js "salt1") >>= fromJSValUnchecked))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt2 HMACGetSecretInput.salt2 specification>
setSalt2 :: (MonadDOM m, IsArrayBuffer val) => HMACGetSecretInput -> val -> m ()
setSalt2 self val = liftDOM (void (self ^. jss "salt2" (toJSVal val)))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt2 HMACGetSecretInput.salt2 specification>
getSalt2 :: (MonadDOM m) => HMACGetSecretInput -> m (Maybe ArrayBuffer)
getSalt2 self = liftDOM (((self ^. js "salt2") >>= fromJSValUnchecked))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt2 HMACGetSecretInput.salt2 specification>
getSalt2Unsafe :: (MonadDOM m, HasCallStack) => HMACGetSecretInput -> m ArrayBuffer
getSalt2Unsafe self = liftDOM ((((self ^. js "salt2") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fidoalliance.org/specs/fido-v2.3-ps-20260226/fido-client-to-authenticator-protocol-v2.3-ps-20260226.html#dom-hmacgetsecretinput-salt2 HMACGetSecretInput.salt2 specification>
getSalt2Unchecked :: (MonadDOM m) => HMACGetSecretInput -> m ArrayBuffer
getSalt2Unchecked self = liftDOM (((self ^. js "salt2") >>= fromJSValUnchecked))