StorageManager.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from storage (webref). Do not edit.
module JSDOM.Generated.StorageManager
       (estimate, estimate_, getDirectory, getDirectory_, persist, persist_, persisted, persisted_, StorageManager(..), gTypeStorageManager)
       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/StorageManager/estimate MDN StorageManager.estimate documentation>
estimate :: (MonadDOM m) => StorageManager -> m StorageEstimate
estimate self = liftDOM (((((self ^. jsf "estimate" ()) >>= readPromise)) >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/StorageManager/getDirectory MDN StorageManager.getDirectory documentation>
getDirectory :: (MonadDOM m) => StorageManager -> m FileSystemDirectoryHandle
getDirectory self = liftDOM (((((self ^. jsf "getDirectory" ()) >>= readPromise)) >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/StorageManager/persist MDN StorageManager.persist documentation>
persist :: (MonadDOM m) => StorageManager -> m Bool
persist self = liftDOM (((((self ^. jsf "persist" ()) >>= readPromise)) >>= valToBool))

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

-- | <https://developer.mozilla.org/docs/Web/API/StorageManager/persisted MDN StorageManager.persisted documentation>
persisted :: (MonadDOM m) => StorageManager -> m Bool
persisted self = liftDOM (((((self ^. jsf "persisted" ()) >>= readPromise)) >>= valToBool))

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