IdentityProviderConfig.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fedcm-1 (webref). Do not edit.
module JSDOM.Generated.IdentityProviderConfig
       (newIdentityProviderConfig, setConfigURL, getConfigURL, setClientId, getClientId, IdentityProviderConfig(..), gTypeIdentityProviderConfig, IsIdentityProviderConfig, toIdentityProviderConfig)
       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-fedid.github.io/FedCM/#dictdef-identityproviderconfig IdentityProviderConfig specification>
newIdentityProviderConfig :: (MonadDOM m, ToJSString configURL, ToJSString clientId) => configURL -> clientId -> m IdentityProviderConfig
newIdentityProviderConfig configURL clientId = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "configURL" (toJSVal configURL)) P.>> (o ^. jss "clientId" (toJSVal clientId)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderconfig-configurl IdentityProviderConfig.configURL specification>
setConfigURL :: (MonadDOM m, IsIdentityProviderConfig self, ToJSString val) => self -> val -> m ()
setConfigURL self val = liftDOM (void ((Types.toIdentityProviderConfig self) ^. jss "configURL" (toJSVal val)))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderconfig-configurl IdentityProviderConfig.configURL specification>
getConfigURL :: (MonadDOM m, IsIdentityProviderConfig self, FromJSString result) => self -> m result
getConfigURL self = liftDOM ((((Types.toIdentityProviderConfig self) ^. js "configURL") >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderconfig-clientid IdentityProviderConfig.clientId specification>
setClientId :: (MonadDOM m, IsIdentityProviderConfig self, ToJSString val) => self -> val -> m ()
setClientId self val = liftDOM (void ((Types.toIdentityProviderConfig self) ^. jss "clientId" (toJSVal val)))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderconfig-clientid IdentityProviderConfig.clientId specification>
getClientId :: (MonadDOM m, IsIdentityProviderConfig self, FromJSString result) => self -> m result
getClientId self = liftDOM ((((Types.toIdentityProviderConfig self) ^. js "clientId") >>= fromJSValUnchecked))