IdentityProviderRequestOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fedcm-1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.IdentityProviderRequestOptions
       (js_newIdentityProviderRequestOptions, js_setLoginHint, js_getLoginHint, js_setDomainHint, js_getDomainHint, js_setFields, js_getFields, js_setParams, js_getParams, newIdentityProviderRequestOptions, setLoginHint, getLoginHint, getLoginHintUnsafe, getLoginHintUnchecked, setDomainHint, getDomainHint, getDomainHintUnsafe, getDomainHintUnchecked, setFields, getFields, getFieldsUnsafe, getFieldsUnchecked, setParams, getParams, IdentityProviderRequestOptions(..), gTypeIdentityProviderRequestOptions)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return ({\"configURL\": $1, \"clientId\": $2}); })"
        js_newIdentityProviderRequestOptions :: JSString -> JSString -> IO IdentityProviderRequestOptions
-- | <https://w3c-fedid.github.io/FedCM/#dictdef-identityproviderrequestoptions IdentityProviderRequestOptions specification>
newIdentityProviderRequestOptions :: (MonadDOM m, ToJSString configURL, ToJSString clientId) => configURL -> clientId -> m IdentityProviderRequestOptions
newIdentityProviderRequestOptions configURL clientId = liftDOM ((js_newIdentityProviderRequestOptions (toJSString configURL) (toJSString clientId)))

foreign import javascript safe "(($1, $2) => { $1[\"loginHint\"] = $2; })"
        js_setLoginHint :: IdentityProviderRequestOptions -> JSString -> IO ()
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-loginhint IdentityProviderRequestOptions.loginHint specification>
setLoginHint :: (MonadDOM m, ToJSString val) => IdentityProviderRequestOptions -> val -> m ()
setLoginHint self val = liftDOM (void ((js_setLoginHint (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"loginHint\"]; })"
        js_getLoginHint :: IdentityProviderRequestOptions -> IO JSVal
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-loginhint IdentityProviderRequestOptions.loginHint specification>
getLoginHint :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m (Maybe result)
getLoginHint self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getLoginHint (self))))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-loginhint IdentityProviderRequestOptions.loginHint specification>
getLoginHintUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => IdentityProviderRequestOptions -> m result
getLoginHintUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getLoginHint (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-loginhint IdentityProviderRequestOptions.loginHint specification>
getLoginHintUnchecked :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m result
getLoginHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getLoginHint (self))))

foreign import javascript safe "(($1, $2) => { $1[\"domainHint\"] = $2; })"
        js_setDomainHint :: IdentityProviderRequestOptions -> JSString -> IO ()
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-domainhint IdentityProviderRequestOptions.domainHint specification>
setDomainHint :: (MonadDOM m, ToJSString val) => IdentityProviderRequestOptions -> val -> m ()
setDomainHint self val = liftDOM (void ((js_setDomainHint (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"domainHint\"]; })"
        js_getDomainHint :: IdentityProviderRequestOptions -> IO JSVal
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-domainhint IdentityProviderRequestOptions.domainHint specification>
getDomainHint :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m (Maybe result)
getDomainHint self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getDomainHint (self))))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-domainhint IdentityProviderRequestOptions.domainHint specification>
getDomainHintUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => IdentityProviderRequestOptions -> m result
getDomainHintUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getDomainHint (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-domainhint IdentityProviderRequestOptions.domainHint specification>
getDomainHintUnchecked :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m result
getDomainHintUnchecked self = liftDOM ((pFromJSVal <$> (js_getDomainHint (self))))

foreign import javascript safe "(($1, $2) => { $1[\"fields\"] = $2; })"
        js_setFields :: IdentityProviderRequestOptions -> JSVal -> IO ()
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-fields IdentityProviderRequestOptions.fields specification>
setFields :: (MonadDOM m, ToJSString val) => IdentityProviderRequestOptions -> [val] -> m ()
setFields self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFields (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"fields\"]; })"
        js_getFields :: IdentityProviderRequestOptions -> IO JSVal
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-fields IdentityProviderRequestOptions.fields specification>
getFields :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m (Maybe [result])
getFields self = liftDOM (((js_getFields (self)) >>= fromJSValUnchecked))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-fields IdentityProviderRequestOptions.fields specification>
getFieldsUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => IdentityProviderRequestOptions -> m [result]
getFieldsUnsafe self = liftDOM ((((js_getFields (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-fields IdentityProviderRequestOptions.fields specification>
getFieldsUnchecked :: (MonadDOM m, FromJSString result) => IdentityProviderRequestOptions -> m [result]
getFieldsUnchecked self = liftDOM (((js_getFields (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"params\"] = $2; })"
        js_setParams :: IdentityProviderRequestOptions -> JSVal -> IO ()
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-params IdentityProviderRequestOptions.params specification>
setParams :: (MonadDOM m) => IdentityProviderRequestOptions -> JSVal -> m ()
setParams self val = liftDOM (void ((js_setParams (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"params\"]; })"
        js_getParams :: IdentityProviderRequestOptions -> IO JSVal
-- | <https://w3c-fedid.github.io/FedCM/#dom-identityproviderrequestoptions-params IdentityProviderRequestOptions.params specification>
getParams :: (MonadDOM m) => IdentityProviderRequestOptions -> m JSVal
getParams self = liftDOM ((js_getParams (self)))