FederatedCredentialRequestOptions.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.FederatedCredentialRequestOptions
       (newFederatedCredentialRequestOptions, setProviders, getProviders, getProvidersUnsafe, getProvidersUnchecked, setProtocols, getProtocols, getProtocolsUnsafe, getProtocolsUnchecked, FederatedCredentialRequestOptions(..), gTypeFederatedCredentialRequestOptions)
       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-federatedcredentialrequestoptions FederatedCredentialRequestOptions specification>
newFederatedCredentialRequestOptions :: (MonadDOM m) => m FederatedCredentialRequestOptions
newFederatedCredentialRequestOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-providers FederatedCredentialRequestOptions.providers specification>
setProviders :: (MonadDOM m, ToJSString val) => FederatedCredentialRequestOptions -> [val] -> m ()
setProviders self val = liftDOM (void (self ^. jss "providers" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-providers FederatedCredentialRequestOptions.providers specification>
getProviders :: (MonadDOM m, FromJSString result) => FederatedCredentialRequestOptions -> m (Maybe [result])
getProviders self = liftDOM (((self ^. js "providers") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-providers FederatedCredentialRequestOptions.providers specification>
getProvidersUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FederatedCredentialRequestOptions -> m [result]
getProvidersUnsafe self = liftDOM ((((self ^. js "providers") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-providers FederatedCredentialRequestOptions.providers specification>
getProvidersUnchecked :: (MonadDOM m, FromJSString result) => FederatedCredentialRequestOptions -> m [result]
getProvidersUnchecked self = liftDOM (((self ^. js "providers") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-protocols FederatedCredentialRequestOptions.protocols specification>
setProtocols :: (MonadDOM m, ToJSString val) => FederatedCredentialRequestOptions -> [val] -> m ()
setProtocols self val = liftDOM (void (self ^. jss "protocols" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-protocols FederatedCredentialRequestOptions.protocols specification>
getProtocols :: (MonadDOM m, FromJSString result) => FederatedCredentialRequestOptions -> m (Maybe [result])
getProtocols self = liftDOM (((self ^. js "protocols") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-protocols FederatedCredentialRequestOptions.protocols specification>
getProtocolsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FederatedCredentialRequestOptions -> m [result]
getProtocolsUnsafe self = liftDOM ((((self ^. js "protocols") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialrequestoptions-protocols FederatedCredentialRequestOptions.protocols specification>
getProtocolsUnchecked :: (MonadDOM m, FromJSString result) => FederatedCredentialRequestOptions -> m [result]
getProtocolsUnchecked self = liftDOM (((self ^. js "protocols") >>= fromJSValUnchecked))