{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.PasswordCredential
(newPasswordCredential, newPasswordCredential', setIdName,
getIdName, setPasswordName, getPasswordName, setAdditionalData,
getAdditionalData, getAdditionalDataUnsafe,
getAdditionalDataUnchecked, PasswordCredential(..),
gTypePasswordCredential)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
newPasswordCredential ::
(MonadDOM m) => PasswordCredentialData -> m PasswordCredential
newPasswordCredential :: forall (m :: * -> *).
MonadDOM m =>
PasswordCredentialData -> m PasswordCredential
newPasswordCredential PasswordCredentialData
data'
= DOM PasswordCredential -> m PasswordCredential
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> PasswordCredential
PasswordCredential (JSVal -> PasswordCredential)
-> JSM JSVal -> DOM PasswordCredential
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"PasswordCredential") [PasswordCredentialData -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal PasswordCredentialData
data'])
newPasswordCredential' ::
(MonadDOM m) => HTMLFormElement -> m PasswordCredential
newPasswordCredential' :: forall (m :: * -> *).
MonadDOM m =>
HTMLFormElement -> m PasswordCredential
newPasswordCredential' HTMLFormElement
form
= DOM PasswordCredential -> m PasswordCredential
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> PasswordCredential
PasswordCredential (JSVal -> PasswordCredential)
-> JSM JSVal -> DOM PasswordCredential
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"PasswordCredential") [HTMLFormElement -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal HTMLFormElement
form])
setIdName ::
(MonadDOM m, ToJSString val) => PasswordCredential -> val -> m ()
setIdName :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
PasswordCredential -> val -> m ()
setIdName PasswordCredential
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PasswordCredential
self PasswordCredential
-> Getting (DOM ()) PasswordCredential (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"idName" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getIdName ::
(MonadDOM m, FromJSString result) => PasswordCredential -> m result
getIdName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
PasswordCredential -> m result
getIdName PasswordCredential
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PasswordCredential
self PasswordCredential
-> Getting (JSM JSVal) PasswordCredential (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter PasswordCredential (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"idName") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setPasswordName ::
(MonadDOM m, ToJSString val) => PasswordCredential -> val -> m ()
setPasswordName :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
PasswordCredential -> val -> m ()
setPasswordName PasswordCredential
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PasswordCredential
self PasswordCredential
-> Getting (DOM ()) PasswordCredential (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"passwordName" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPasswordName ::
(MonadDOM m, FromJSString result) => PasswordCredential -> m result
getPasswordName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
PasswordCredential -> m result
getPasswordName PasswordCredential
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PasswordCredential
self PasswordCredential
-> Getting (JSM JSVal) PasswordCredential (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter PasswordCredential (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"passwordName") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAdditionalData ::
(MonadDOM m, IsCredentialBodyType val) =>
PasswordCredential -> Maybe val -> m ()
setAdditionalData :: forall (m :: * -> *) val.
(MonadDOM m, IsCredentialBodyType val) =>
PasswordCredential -> Maybe val -> m ()
setAdditionalData PasswordCredential
self Maybe val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (PasswordCredential
self PasswordCredential
-> Getting (DOM ()) PasswordCredential (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"additionalData" (Maybe val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe val
val))
getAdditionalData ::
(MonadDOM m) => PasswordCredential -> m (Maybe CredentialBodyType)
getAdditionalData :: forall (m :: * -> *).
MonadDOM m =>
PasswordCredential -> m (Maybe CredentialBodyType)
getAdditionalData PasswordCredential
self
= DOM (Maybe CredentialBodyType) -> m (Maybe CredentialBodyType)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PasswordCredential
self PasswordCredential
-> Getting (JSM JSVal) PasswordCredential (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter PasswordCredential (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"additionalData") JSM JSVal
-> (JSVal -> DOM (Maybe CredentialBodyType))
-> DOM (Maybe CredentialBodyType)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe CredentialBodyType)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getAdditionalDataUnsafe ::
(MonadDOM m, HasCallStack) =>
PasswordCredential -> m CredentialBodyType
getAdditionalDataUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
PasswordCredential -> m CredentialBodyType
getAdditionalDataUnsafe PasswordCredential
self
= DOM CredentialBodyType -> m CredentialBodyType
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((PasswordCredential
self PasswordCredential
-> Getting (JSM JSVal) PasswordCredential (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter PasswordCredential (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"additionalData") JSM JSVal
-> (JSVal -> DOM (Maybe CredentialBodyType))
-> DOM (Maybe CredentialBodyType)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe CredentialBodyType)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe CredentialBodyType)
-> (Maybe CredentialBodyType -> DOM CredentialBodyType)
-> DOM CredentialBodyType
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM CredentialBodyType
-> (CredentialBodyType -> DOM CredentialBodyType)
-> Maybe CredentialBodyType
-> DOM CredentialBodyType
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM CredentialBodyType
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") CredentialBodyType -> DOM CredentialBodyType
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getAdditionalDataUnchecked ::
(MonadDOM m) => PasswordCredential -> m CredentialBodyType
getAdditionalDataUnchecked :: forall (m :: * -> *).
MonadDOM m =>
PasswordCredential -> m CredentialBodyType
getAdditionalDataUnchecked PasswordCredential
self
= DOM CredentialBodyType -> m CredentialBodyType
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PasswordCredential
self PasswordCredential
-> Getting (JSM JSVal) PasswordCredential (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter PasswordCredential (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"additionalData") JSM JSVal
-> (JSVal -> DOM CredentialBodyType) -> DOM CredentialBodyType
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM CredentialBodyType
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)