module JSDOM.Generated.WorkerNavigator
(getWebkitTemporaryStorage, getWebkitTemporaryStorageUnsafe,
getWebkitTemporaryStorageUnchecked, getWebkitPersistentStorage,
getWebkitPersistentStorageUnsafe,
getWebkitPersistentStorageUnchecked, getAppName, getAppVersion,
getPlatform, getUserAgent, getOnLine, WorkerNavigator(..),
gTypeWorkerNavigator)
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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
getWebkitTemporaryStorage ::
(MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)
getWebkitTemporaryStorage self
= liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)
getWebkitTemporaryStorageUnsafe ::
(MonadDOM m, HasCallStack) => WorkerNavigator -> m StorageQuota
getWebkitTemporaryStorageUnsafe self
= liftDOM
(((self ^. js "webkitTemporaryStorage") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitTemporaryStorageUnchecked ::
(MonadDOM m) => WorkerNavigator -> m StorageQuota
getWebkitTemporaryStorageUnchecked self
= liftDOM
((self ^. js "webkitTemporaryStorage") >>= fromJSValUnchecked)
getWebkitPersistentStorage ::
(MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota)
getWebkitPersistentStorage self
= liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)
getWebkitPersistentStorageUnsafe ::
(MonadDOM m, HasCallStack) => WorkerNavigator -> m StorageQuota
getWebkitPersistentStorageUnsafe self
= liftDOM
(((self ^. js "webkitPersistentStorage") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitPersistentStorageUnchecked ::
(MonadDOM m) => WorkerNavigator -> m StorageQuota
getWebkitPersistentStorageUnchecked self
= liftDOM
((self ^. js "webkitPersistentStorage") >>= fromJSValUnchecked)
getAppName ::
(MonadDOM m, FromJSString result) => WorkerNavigator -> m result
getAppName self
= liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)
getAppVersion ::
(MonadDOM m, FromJSString result) => WorkerNavigator -> m result
getAppVersion self
= liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)
getPlatform ::
(MonadDOM m, FromJSString result) => WorkerNavigator -> m result
getPlatform self
= liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)
getUserAgent ::
(MonadDOM m, FromJSString result) => WorkerNavigator -> m result
getUserAgent self
= liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)
getOnLine :: (MonadDOM m) => WorkerNavigator -> m Bool
getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)