module GHCJS.DOM.JSFFI.Generated.Navigator
(js_getGamepads, getGamepads, getGamepads_, js_webkitGetUserMedia,
webkitGetUserMedia, js_registerProtocolHandler,
registerProtocolHandler, js_isProtocolHandlerRegistered,
isProtocolHandlerRegistered, isProtocolHandlerRegistered_,
js_unregisterProtocolHandler, unregisterProtocolHandler,
js_vibratePattern, vibratePattern, vibratePattern_, js_vibrate,
vibrate, vibrate_, js_javaEnabled, javaEnabled, javaEnabled_,
js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery,
getWebkitBattery, getWebkitBatteryUnsafe,
getWebkitBatteryUnchecked, js_getGeolocation, getGeolocation,
getGeolocationUnsafe, getGeolocationUnchecked,
js_getWebkitTemporaryStorage, getWebkitTemporaryStorage,
getWebkitTemporaryStorageUnsafe,
getWebkitTemporaryStorageUnchecked, js_getWebkitPersistentStorage,
getWebkitPersistentStorage, getWebkitPersistentStorageUnsafe,
getWebkitPersistentStorageUnchecked, js_getAppCodeName,
getAppCodeName, js_getAppName, getAppName, js_getAppVersion,
getAppVersion, js_getLanguage, getLanguage, js_getUserAgent,
getUserAgent, js_getPlatform, getPlatform, js_getPlugins,
getPlugins, getPluginsUnsafe, getPluginsUnchecked, js_getMimeTypes,
getMimeTypes, getMimeTypesUnsafe, getMimeTypesUnchecked,
js_getProduct, getProduct, js_getProductSub, getProductSub,
js_getVendor, getVendor, js_getVendorSub, getVendorSub,
js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine,
js_getHardwareConcurrency, getHardwareConcurrency, Navigator(..),
gTypeNavigator)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"getGamepads\"]()"
js_getGamepads :: Navigator -> IO JSVal
getGamepads :: (MonadIO m) => Navigator -> m [Maybe Gamepad]
getGamepads self
= liftIO ((js_getGamepads (self)) >>= fromJSValUnchecked)
getGamepads_ :: (MonadIO m) => Navigator -> m ()
getGamepads_ self = liftIO (void (js_getGamepads (self)))
foreign import javascript unsafe
"$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia ::
Navigator ->
Nullable Dictionary ->
Nullable NavigatorUserMediaSuccessCallback ->
Nullable NavigatorUserMediaErrorCallback -> IO ()
webkitGetUserMedia ::
(MonadIO m, IsDictionary options) =>
Navigator ->
Maybe options ->
Maybe NavigatorUserMediaSuccessCallback ->
Maybe NavigatorUserMediaErrorCallback -> m ()
webkitGetUserMedia self options successCallback errorCallback
= liftIO
(js_webkitGetUserMedia (self)
(maybeToNullable (fmap toDictionary options))
(maybeToNullable successCallback)
(maybeToNullable errorCallback))
foreign import javascript unsafe
"$1[\"registerProtocolHandler\"]($2,\n$3, $4)"
js_registerProtocolHandler ::
Navigator -> JSString -> JSString -> JSString -> IO ()
registerProtocolHandler ::
(MonadIO m, ToJSString scheme, ToJSString url, ToJSString title) =>
Navigator -> scheme -> url -> title -> m ()
registerProtocolHandler self scheme url title
= liftIO
(js_registerProtocolHandler (self) (toJSString scheme)
(toJSString url)
(toJSString title))
foreign import javascript unsafe
"$1[\"isProtocolHandlerRegistered\"]($2,\n$3)"
js_isProtocolHandlerRegistered ::
Navigator -> JSString -> JSString -> IO JSString
isProtocolHandlerRegistered ::
(MonadIO m, ToJSString scheme, ToJSString url,
FromJSString result) =>
Navigator -> scheme -> url -> m result
isProtocolHandlerRegistered self scheme url
= liftIO
(fromJSString <$>
(js_isProtocolHandlerRegistered (self) (toJSString scheme)
(toJSString url)))
isProtocolHandlerRegistered_ ::
(MonadIO m, ToJSString scheme, ToJSString url) =>
Navigator -> scheme -> url -> m ()
isProtocolHandlerRegistered_ self scheme url
= liftIO
(void
(js_isProtocolHandlerRegistered (self) (toJSString scheme)
(toJSString url)))
foreign import javascript unsafe
"$1[\"unregisterProtocolHandler\"]($2,\n$3)"
js_unregisterProtocolHandler ::
Navigator -> JSString -> JSString -> IO ()
unregisterProtocolHandler ::
(MonadIO m, ToJSString scheme, ToJSString url) =>
Navigator -> scheme -> url -> m ()
unregisterProtocolHandler self scheme url
= liftIO
(js_unregisterProtocolHandler (self) (toJSString scheme)
(toJSString url))
foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"
js_vibratePattern :: Navigator -> JSVal -> IO Bool
vibratePattern :: (MonadIO m) => Navigator -> [Word] -> m Bool
vibratePattern self pattern'
= liftIO
(toJSVal pattern' >>=
\ pattern'' -> js_vibratePattern (self) pattern'')
vibratePattern_ :: (MonadIO m) => Navigator -> [Word] -> m ()
vibratePattern_ self pattern'
= liftIO
(void
(toJSVal pattern' >>=
\ pattern'' -> js_vibratePattern (self) pattern''))
foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"
js_vibrate :: Navigator -> Word -> IO Bool
vibrate :: (MonadIO m) => Navigator -> Word -> m Bool
vibrate self time = liftIO (js_vibrate (self) time)
vibrate_ :: (MonadIO m) => Navigator -> Word -> m ()
vibrate_ self time = liftIO (void (js_vibrate (self) time))
foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"
js_javaEnabled :: Navigator -> IO Bool
javaEnabled :: (MonadIO m) => Navigator -> m Bool
javaEnabled self = liftIO (js_javaEnabled (self))
javaEnabled_ :: (MonadIO m) => Navigator -> m ()
javaEnabled_ self = liftIO (void (js_javaEnabled (self)))
foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"
js_getStorageUpdates :: Navigator -> IO ()
getStorageUpdates :: (MonadIO m) => Navigator -> m ()
getStorageUpdates self = liftIO (js_getStorageUpdates (self))
foreign import javascript unsafe "$1[\"webkitBattery\"]"
js_getWebkitBattery :: Navigator -> IO (Nullable BatteryManager)
getWebkitBattery ::
(MonadIO m) => Navigator -> m (Maybe BatteryManager)
getWebkitBattery self
= liftIO (nullableToMaybe <$> (js_getWebkitBattery (self)))
getWebkitBatteryUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m BatteryManager
getWebkitBatteryUnsafe self
= liftIO
((nullableToMaybe <$> (js_getWebkitBattery (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitBatteryUnchecked ::
(MonadIO m) => Navigator -> m BatteryManager
getWebkitBatteryUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getWebkitBattery (self)))
foreign import javascript unsafe "$1[\"geolocation\"]"
js_getGeolocation :: Navigator -> IO (Nullable Geolocation)
getGeolocation :: (MonadIO m) => Navigator -> m (Maybe Geolocation)
getGeolocation self
= liftIO (nullableToMaybe <$> (js_getGeolocation (self)))
getGeolocationUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m Geolocation
getGeolocationUnsafe self
= liftIO
((nullableToMaybe <$> (js_getGeolocation (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getGeolocationUnchecked ::
(MonadIO m) => Navigator -> m Geolocation
getGeolocationUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getGeolocation (self)))
foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]"
js_getWebkitTemporaryStorage ::
Navigator -> IO (Nullable StorageQuota)
getWebkitTemporaryStorage ::
(MonadIO m) => Navigator -> m (Maybe StorageQuota)
getWebkitTemporaryStorage self
= liftIO
(nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))
getWebkitTemporaryStorageUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m StorageQuota
getWebkitTemporaryStorageUnsafe self
= liftIO
((nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitTemporaryStorageUnchecked ::
(MonadIO m) => Navigator -> m StorageQuota
getWebkitTemporaryStorageUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getWebkitTemporaryStorage (self)))
foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]"
js_getWebkitPersistentStorage ::
Navigator -> IO (Nullable StorageQuota)
getWebkitPersistentStorage ::
(MonadIO m) => Navigator -> m (Maybe StorageQuota)
getWebkitPersistentStorage self
= liftIO
(nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))
getWebkitPersistentStorageUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m StorageQuota
getWebkitPersistentStorageUnsafe self
= liftIO
((nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitPersistentStorageUnchecked ::
(MonadIO m) => Navigator -> m StorageQuota
getWebkitPersistentStorageUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getWebkitPersistentStorage (self)))
foreign import javascript unsafe "$1[\"appCodeName\"]"
js_getAppCodeName :: Navigator -> IO JSString
getAppCodeName ::
(MonadIO m, FromJSString result) => Navigator -> m result
getAppCodeName self
= liftIO (fromJSString <$> (js_getAppCodeName (self)))
foreign import javascript unsafe "$1[\"appName\"]" js_getAppName ::
Navigator -> IO JSString
getAppName ::
(MonadIO m, FromJSString result) => Navigator -> m result
getAppName self = liftIO (fromJSString <$> (js_getAppName (self)))
foreign import javascript unsafe "$1[\"appVersion\"]"
js_getAppVersion :: Navigator -> IO JSString
getAppVersion ::
(MonadIO m, FromJSString result) => Navigator -> m result
getAppVersion self
= liftIO (fromJSString <$> (js_getAppVersion (self)))
foreign import javascript unsafe "$1[\"language\"]" js_getLanguage
:: Navigator -> IO JSString
getLanguage ::
(MonadIO m, FromJSString result) => Navigator -> m result
getLanguage self
= liftIO (fromJSString <$> (js_getLanguage (self)))
foreign import javascript unsafe "$1[\"userAgent\"]"
js_getUserAgent :: Navigator -> IO JSString
getUserAgent ::
(MonadIO m, FromJSString result) => Navigator -> m result
getUserAgent self
= liftIO (fromJSString <$> (js_getUserAgent (self)))
foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform
:: Navigator -> IO JSString
getPlatform ::
(MonadIO m, FromJSString result) => Navigator -> m result
getPlatform self
= liftIO (fromJSString <$> (js_getPlatform (self)))
foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::
Navigator -> IO (Nullable PluginArray)
getPlugins :: (MonadIO m) => Navigator -> m (Maybe PluginArray)
getPlugins self
= liftIO (nullableToMaybe <$> (js_getPlugins (self)))
getPluginsUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m PluginArray
getPluginsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getPlugins (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getPluginsUnchecked :: (MonadIO m) => Navigator -> m PluginArray
getPluginsUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getPlugins (self)))
foreign import javascript unsafe "$1[\"mimeTypes\"]"
js_getMimeTypes :: Navigator -> IO (Nullable MimeTypeArray)
getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray)
getMimeTypes self
= liftIO (nullableToMaybe <$> (js_getMimeTypes (self)))
getMimeTypesUnsafe ::
(MonadIO m, HasCallStack) => Navigator -> m MimeTypeArray
getMimeTypesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getMimeTypes (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getMimeTypesUnchecked ::
(MonadIO m) => Navigator -> m MimeTypeArray
getMimeTypesUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getMimeTypes (self)))
foreign import javascript unsafe "$1[\"product\"]" js_getProduct ::
Navigator -> IO JSString
getProduct ::
(MonadIO m, FromJSString result) => Navigator -> m result
getProduct self = liftIO (fromJSString <$> (js_getProduct (self)))
foreign import javascript unsafe "$1[\"productSub\"]"
js_getProductSub :: Navigator -> IO JSString
getProductSub ::
(MonadIO m, FromJSString result) => Navigator -> m result
getProductSub self
= liftIO (fromJSString <$> (js_getProductSub (self)))
foreign import javascript unsafe "$1[\"vendor\"]" js_getVendor ::
Navigator -> IO JSString
getVendor ::
(MonadIO m, FromJSString result) => Navigator -> m result
getVendor self = liftIO (fromJSString <$> (js_getVendor (self)))
foreign import javascript unsafe "$1[\"vendorSub\"]"
js_getVendorSub :: Navigator -> IO JSString
getVendorSub ::
(MonadIO m, FromJSString result) => Navigator -> m result
getVendorSub self
= liftIO (fromJSString <$> (js_getVendorSub (self)))
foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"
js_getCookieEnabled :: Navigator -> IO Bool
getCookieEnabled :: (MonadIO m) => Navigator -> m Bool
getCookieEnabled self = liftIO (js_getCookieEnabled (self))
foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"
js_getOnLine :: Navigator -> IO Bool
getOnLine :: (MonadIO m) => Navigator -> m Bool
getOnLine self = liftIO (js_getOnLine (self))
foreign import javascript unsafe "$1[\"hardwareConcurrency\"]"
js_getHardwareConcurrency :: Navigator -> IO Int
getHardwareConcurrency :: (MonadIO m) => Navigator -> m Int
getHardwareConcurrency self
= liftIO (js_getHardwareConcurrency (self))