CredentialsContainer.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.CredentialsContainer
       (create, create_, createUnsafe, createUnchecked, get, get_, getUnsafe, getUnchecked, preventSilentAccess, store, CredentialsContainer(..), gTypeCredentialsContainer)
       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://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>
create :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m (Maybe Credential)
create self options = liftDOM (((((self ^. jsf "create" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>
create_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m ()
create_ self options = liftDOM (void (((self ^. jsf "create" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>
createUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential
createUnsafe self options = liftDOM ((((((self ^. jsf "create" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/create MDN CredentialsContainer.create documentation>
createUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialCreationOptions -> m Credential
createUnchecked self options = liftDOM (((((self ^. jsf "create" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>
get :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m (Maybe Credential)
get self options = liftDOM (((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>
get_ :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m ()
get_ self options = liftDOM (void (((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>
getUnsafe :: (MonadDOM m, HasCallStack) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential
getUnsafe self options = liftDOM ((((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/get MDN CredentialsContainer.get documentation>
getUnchecked :: (MonadDOM m) => CredentialsContainer -> Maybe CredentialRequestOptions -> m Credential
getUnchecked self options = liftDOM (((((self ^. jsf "get" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/preventSilentAccess MDN CredentialsContainer.preventSilentAccess documentation>
preventSilentAccess :: (MonadDOM m) => CredentialsContainer -> m ()
preventSilentAccess self = liftDOM (void (((self ^. jsf "preventSilentAccess" ()) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/CredentialsContainer/store MDN CredentialsContainer.store documentation>
store :: (MonadDOM m, IsCredential credential) => CredentialsContainer -> credential -> m ()
store self credential = liftDOM (void (((self ^. jsf "store" [toJSVal credential]) >>= readPromise)))