{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.WorkerGlobalScope (close, importScripts, getSelf, getLocation, error, offline, online, getNavigator, WorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | close :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m () close self = liftDOM (void ((toWorkerGlobalScope self) ^. js "close")) -- | importScripts :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m () importScripts self = liftDOM (void ((toWorkerGlobalScope self) ^. js "importScripts")) -- | getSelf :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m (Maybe WorkerGlobalScope) getSelf self = liftDOM (((toWorkerGlobalScope self) ^. js "self") >>= fromJSVal) -- | getLocation :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m (Maybe WorkerLocation) getLocation self = liftDOM (((toWorkerGlobalScope self) ^. js "location") >>= fromJSVal) -- | error :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self UIEvent error = unsafeEventName (toJSString "error") -- | offline :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event offline = unsafeEventName (toJSString "offline") -- | online :: (IsWorkerGlobalScope self, IsEventTarget self) => EventName self Event online = unsafeEventName (toJSString "online") -- | getNavigator :: (MonadDOM m, IsWorkerGlobalScope self) => self -> m (Maybe WorkerNavigator) getNavigator self = liftDOM (((toWorkerGlobalScope self) ^. js "navigator") >>= fromJSVal)