LockManager.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from web-locks (webref). Do not edit.
module JSDOM.Generated.LockManager
       (query, query_, request, request_, requestOptions, requestOptions_, LockManager(..), gTypeLockManager)
       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/LockManager/query MDN LockManager.query documentation>
query :: (MonadDOM m) => LockManager -> m LockManagerSnapshot
query self = liftDOM (((((self ^. jsf "query" ()) >>= readPromise)) >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/LockManager/request MDN LockManager.request documentation>
request :: (MonadDOM m, ToJSString name) => LockManager -> name -> LockGrantedCallback -> m JSVal
request self name callback' = liftDOM (((self ^. jsf "request" [toJSVal name, toJSVal callback']) >>= readPromise))

-- | <https://developer.mozilla.org/docs/Web/API/LockManager/request MDN LockManager.request documentation>
request_ :: (MonadDOM m, ToJSString name) => LockManager -> name -> LockGrantedCallback -> m ()
request_ self name callback' = liftDOM (void (((self ^. jsf "request" [toJSVal name, toJSVal callback']) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/LockManager/request MDN LockManager.request documentation>
requestOptions :: (MonadDOM m, ToJSString name) => LockManager -> name -> LockOptions -> LockGrantedCallback -> m JSVal
requestOptions self name options callback' = liftDOM (((self ^. jsf "request" [toJSVal name, toJSVal options, toJSVal callback']) >>= readPromise))

-- | <https://developer.mozilla.org/docs/Web/API/LockManager/request MDN LockManager.request documentation>
requestOptions_ :: (MonadDOM m, ToJSString name) => LockManager -> name -> LockOptions -> LockGrantedCallback -> m ()
requestOptions_ self name options callback' = liftDOM (void (((self ^. jsf "request" [toJSVal name, toJSVal options, toJSVal callback']) >>= readPromise)))