FederatedCredentialInit.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.FederatedCredentialInit
       (newFederatedCredentialInit, setName, getName, getNameUnsafe, getNameUnchecked, setIconURL, getIconURL, getIconURLUnsafe, getIconURLUnchecked, setOrigin, getOrigin, setProvider, getProvider, setProtocol, getProtocol, getProtocolUnsafe, getProtocolUnchecked, FederatedCredentialInit(..), gTypeFederatedCredentialInit)
       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-federatedcredentialinit FederatedCredentialInit specification>
newFederatedCredentialInit :: (MonadDOM m, ToJSString id, ToJSString origin, ToJSString provider) => id -> origin -> provider -> m FederatedCredentialInit
newFederatedCredentialInit id origin provider = liftDOM ((((new (jsg "Object") () >>= \o -> (o ^. jss "id" (toJSVal id)) P.>> (o ^. jss "origin" (toJSVal origin)) P.>> (o ^. jss "provider" (toJSVal provider)) P.>> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-name FederatedCredentialInit.name specification>
setName :: (MonadDOM m, ToJSString val) => FederatedCredentialInit -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-name FederatedCredentialInit.name specification>
getName :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m (Maybe result)
getName self = liftDOM (((self ^. js "name") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-name FederatedCredentialInit.name specification>
getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FederatedCredentialInit -> m result
getNameUnsafe self = liftDOM ((((self ^. js "name") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-name FederatedCredentialInit.name specification>
getNameUnchecked :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m result
getNameUnchecked self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-iconurl FederatedCredentialInit.iconURL specification>
setIconURL :: (MonadDOM m, ToJSString val) => FederatedCredentialInit -> val -> m ()
setIconURL self val = liftDOM (void (self ^. jss "iconURL" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-iconurl FederatedCredentialInit.iconURL specification>
getIconURL :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m (Maybe result)
getIconURL self = liftDOM (((self ^. js "iconURL") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-iconurl FederatedCredentialInit.iconURL specification>
getIconURLUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FederatedCredentialInit -> m result
getIconURLUnsafe self = liftDOM ((((self ^. js "iconURL") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-iconurl FederatedCredentialInit.iconURL specification>
getIconURLUnchecked :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m result
getIconURLUnchecked self = liftDOM (((self ^. js "iconURL") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-origin FederatedCredentialInit.origin specification>
setOrigin :: (MonadDOM m, ToJSString val) => FederatedCredentialInit -> val -> m ()
setOrigin self val = liftDOM (void (self ^. jss "origin" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-origin FederatedCredentialInit.origin specification>
getOrigin :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m result
getOrigin self = liftDOM (((self ^. js "origin") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-provider FederatedCredentialInit.provider specification>
setProvider :: (MonadDOM m, ToJSString val) => FederatedCredentialInit -> val -> m ()
setProvider self val = liftDOM (void (self ^. jss "provider" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-provider FederatedCredentialInit.provider specification>
getProvider :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m result
getProvider self = liftDOM (((self ^. js "provider") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-protocol FederatedCredentialInit.protocol specification>
setProtocol :: (MonadDOM m, ToJSString val) => FederatedCredentialInit -> val -> m ()
setProtocol self val = liftDOM (void (self ^. jss "protocol" (toJSVal val)))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-protocol FederatedCredentialInit.protocol specification>
getProtocol :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m (Maybe result)
getProtocol self = liftDOM (((self ^. js "protocol") >>= fromMaybeJSString))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-protocol FederatedCredentialInit.protocol specification>
getProtocolUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => FederatedCredentialInit -> m result
getProtocolUnsafe self = liftDOM ((((self ^. js "protocol") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webappsec-credential-management/#dom-federatedcredentialinit-protocol FederatedCredentialInit.protocol specification>
getProtocolUnchecked :: (MonadDOM m, FromJSString result) => FederatedCredentialInit -> m result
getProtocolUnchecked self = liftDOM (((self ^. js "protocol") >>= fromJSValUnchecked))