ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/Navigator.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Navigator
       (js_canShare, js_getGamepads, js_requestMIDIAccess, js_requestMediaKeySystemAccess, js_sendBeacon, js_share, js_vibrate, js_getClipboard, js_getCredentials, js_getGeolocation, js_getUserActivation, js_getLogin, js_getMediaCapabilities, js_getMediaDevices, js_getMediaSession, js_getPermissions, js_getMaxTouchPoints, js_getWakeLock, js_getSerial, js_getServiceWorker, canShare, canShare_, getGamepads, getGamepads_, requestMIDIAccess, requestMIDIAccess_, requestMediaKeySystemAccess, requestMediaKeySystemAccess_, sendBeacon, sendBeacon_, share, vibrate, vibrate_, getClipboard, getCredentials, getGeolocation, getUserActivation, getLogin, getMediaCapabilities, getMediaDevices, getMediaSession, getPermissions, getMaxTouchPoints, getWakeLock, getSerial, getServiceWorker, Navigator(..), gTypeNavigator)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return $1[\"canShare\"]($2); })"
        js_canShare :: Navigator -> JSVal -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/canShare MDN Navigator.canShare documentation>
canShare :: (MonadDOM m) => Navigator -> Maybe ShareData -> m Bool
canShare self data' = liftDOM (((P.maybe (P.return jsUndefined) toJSVal data') >>= \a2' -> js_canShare (self) a2'))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/canShare MDN Navigator.canShare documentation>
canShare_ :: (MonadDOM m) => Navigator -> Maybe ShareData -> m ()
canShare_ self data' = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal data') >>= \a2' -> js_canShare (self) a2')))

foreign import javascript safe "(($1) => { return $1[\"getGamepads\"](); })"
        js_getGamepads :: Navigator -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/getGamepads MDN Navigator.getGamepads documentation>
getGamepads :: (MonadDOM m) => Navigator -> m [Maybe Gamepad]
getGamepads self = liftDOM (((js_getGamepads (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/getGamepads MDN Navigator.getGamepads documentation>
getGamepads_ :: (MonadDOM m) => Navigator -> m ()
getGamepads_ self = liftDOM (void ((js_getGamepads (self))))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"requestMIDIAccess\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_requestMIDIAccess :: Navigator -> JSVal -> IO (JSVal, MIDIAccess)
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/requestMIDIAccess MDN Navigator.requestMIDIAccess documentation>
requestMIDIAccess :: (MonadDOM m) => Navigator -> Maybe MIDIOptions -> m MIDIAccess
requestMIDIAccess self options = liftDOM ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestMIDIAccess (self) a2') >>= checkPromiseResult))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/requestMIDIAccess MDN Navigator.requestMIDIAccess documentation>
requestMIDIAccess_ :: (MonadDOM m) => Navigator -> Maybe MIDIOptions -> m ()
requestMIDIAccess_ self options = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal options) >>= \a2' -> js_requestMIDIAccess (self) a2') >>= checkPromiseResult)))

foreign import javascript interruptible "(($1, $2, $3, $c) => { return $1[\"requestMediaKeySystemAccess\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_requestMediaKeySystemAccess :: Navigator -> JSString -> JSVal -> IO (JSVal, MediaKeySystemAccess)
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/requestMediaKeySystemAccess MDN Navigator.requestMediaKeySystemAccess documentation>
requestMediaKeySystemAccess :: (MonadDOM m, ToJSString keySystem) => Navigator -> keySystem -> [MediaKeySystemConfiguration] -> m MediaKeySystemAccess
requestMediaKeySystemAccess self keySystem supportedConfigurations = liftDOM ((((toJSVal supportedConfigurations) >>= \a3' -> js_requestMediaKeySystemAccess (self) (toJSString keySystem) a3') >>= checkPromiseResult))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/requestMediaKeySystemAccess MDN Navigator.requestMediaKeySystemAccess documentation>
requestMediaKeySystemAccess_ :: (MonadDOM m, ToJSString keySystem) => Navigator -> keySystem -> [MediaKeySystemConfiguration] -> m ()
requestMediaKeySystemAccess_ self keySystem supportedConfigurations = liftDOM (void ((((toJSVal supportedConfigurations) >>= \a3' -> js_requestMediaKeySystemAccess (self) (toJSString keySystem) a3') >>= checkPromiseResult)))

foreign import javascript safe "(($1, $2, $3) => { return $1[\"sendBeacon\"]($2, $3); })"
        js_sendBeacon :: Navigator -> JSString -> JSVal -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/sendBeacon MDN Navigator.sendBeacon documentation>
sendBeacon :: (MonadDOM m, ToJSString url, IsBodyInit data') => Navigator -> url -> Maybe data' -> m Bool
sendBeacon self url data' = liftDOM (((toJSVal data') >>= \a3' -> js_sendBeacon (self) (toJSString url) a3'))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/sendBeacon MDN Navigator.sendBeacon documentation>
sendBeacon_ :: (MonadDOM m, ToJSString url, IsBodyInit data') => Navigator -> url -> Maybe data' -> m ()
sendBeacon_ self url data' = liftDOM (void (((toJSVal data') >>= \a3' -> js_sendBeacon (self) (toJSString url) a3')))

foreign import javascript interruptible "(($1, $2, $c) => { return $1[\"share\"]($2).then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_share :: Navigator -> JSVal -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/share MDN Navigator.share documentation>
share :: (MonadDOM m) => Navigator -> Maybe ShareData -> m ()
share self data' = liftDOM (void ((((P.maybe (P.return jsUndefined) toJSVal data') >>= \a2' -> js_share (self) a2') >>= checkPromiseResult)))

foreign import javascript safe "(($1, $2) => { return $1[\"vibrate\"]($2); })"
        js_vibrate :: Navigator -> VibratePattern -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/vibrate MDN Navigator.vibrate documentation>
vibrate :: (MonadDOM m, IsVibratePattern pattern') => Navigator -> pattern' -> m Bool
vibrate self pattern' = liftDOM ((js_vibrate (self) (Types.toVibratePattern pattern')))

-- | <https://developer.mozilla.org/docs/Web/API/Navigator/vibrate MDN Navigator.vibrate documentation>
vibrate_ :: (MonadDOM m, IsVibratePattern pattern') => Navigator -> pattern' -> m ()
vibrate_ self pattern' = liftDOM (void ((js_vibrate (self) (Types.toVibratePattern pattern'))))

foreign import javascript unsafe "(($1) => { return $1[\"clipboard\"]; })"
        js_getClipboard :: Navigator -> IO Clipboard
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/clipboard MDN Navigator.clipboard documentation>
getClipboard :: (MonadDOM m) => Navigator -> m Clipboard
getClipboard self = liftDOM ((js_getClipboard (self)))

foreign import javascript unsafe "(($1) => { return $1[\"credentials\"]; })"
        js_getCredentials :: Navigator -> IO CredentialsContainer
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/credentials MDN Navigator.credentials documentation>
getCredentials :: (MonadDOM m) => Navigator -> m CredentialsContainer
getCredentials self = liftDOM ((js_getCredentials (self)))

foreign import javascript unsafe "(($1) => { return $1[\"geolocation\"]; })"
        js_getGeolocation :: Navigator -> IO Geolocation
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/geolocation MDN Navigator.geolocation documentation>
getGeolocation :: (MonadDOM m) => Navigator -> m Geolocation
getGeolocation self = liftDOM ((js_getGeolocation (self)))

foreign import javascript unsafe "(($1) => { return $1[\"userActivation\"]; })"
        js_getUserActivation :: Navigator -> IO UserActivation
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/userActivation MDN Navigator.userActivation documentation>
getUserActivation :: (MonadDOM m) => Navigator -> m UserActivation
getUserActivation self = liftDOM ((js_getUserActivation (self)))

foreign import javascript unsafe "(($1) => { return $1[\"login\"]; })"
        js_getLogin :: Navigator -> IO NavigatorLogin
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/login MDN Navigator.login documentation>
getLogin :: (MonadDOM m) => Navigator -> m NavigatorLogin
getLogin self = liftDOM ((js_getLogin (self)))

foreign import javascript unsafe "(($1) => { return $1[\"mediaCapabilities\"]; })"
        js_getMediaCapabilities :: Navigator -> IO MediaCapabilities
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/mediaCapabilities MDN Navigator.mediaCapabilities documentation>
getMediaCapabilities :: (MonadDOM m) => Navigator -> m MediaCapabilities
getMediaCapabilities self = liftDOM ((js_getMediaCapabilities (self)))

foreign import javascript unsafe "(($1) => { return $1[\"mediaDevices\"]; })"
        js_getMediaDevices :: Navigator -> IO MediaDevices
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/mediaDevices MDN Navigator.mediaDevices documentation>
getMediaDevices :: (MonadDOM m) => Navigator -> m MediaDevices
getMediaDevices self = liftDOM ((js_getMediaDevices (self)))

foreign import javascript unsafe "(($1) => { return $1[\"mediaSession\"]; })"
        js_getMediaSession :: Navigator -> IO MediaSession
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/mediaSession MDN Navigator.mediaSession documentation>
getMediaSession :: (MonadDOM m) => Navigator -> m MediaSession
getMediaSession self = liftDOM ((js_getMediaSession (self)))

foreign import javascript unsafe "(($1) => { return $1[\"permissions\"]; })"
        js_getPermissions :: Navigator -> IO Permissions
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/permissions MDN Navigator.permissions documentation>
getPermissions :: (MonadDOM m) => Navigator -> m Permissions
getPermissions self = liftDOM ((js_getPermissions (self)))

foreign import javascript unsafe "(($1) => { return $1[\"maxTouchPoints\"]; })"
        js_getMaxTouchPoints :: Navigator -> IO Int
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/maxTouchPoints MDN Navigator.maxTouchPoints documentation>
getMaxTouchPoints :: (MonadDOM m) => Navigator -> m Int
getMaxTouchPoints self = liftDOM ((js_getMaxTouchPoints (self)))

foreign import javascript unsafe "(($1) => { return $1[\"wakeLock\"]; })"
        js_getWakeLock :: Navigator -> IO WakeLock
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/wakeLock MDN Navigator.wakeLock documentation>
getWakeLock :: (MonadDOM m) => Navigator -> m WakeLock
getWakeLock self = liftDOM ((js_getWakeLock (self)))

foreign import javascript unsafe "(($1) => { return $1[\"serial\"]; })"
        js_getSerial :: Navigator -> IO Serial
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/serial MDN Navigator.serial documentation>
getSerial :: (MonadDOM m) => Navigator -> m Serial
getSerial self = liftDOM ((js_getSerial (self)))

foreign import javascript unsafe "(($1) => { return $1[\"serviceWorker\"]; })"
        js_getServiceWorker :: Navigator -> IO ServiceWorkerContainer
-- | <https://developer.mozilla.org/docs/Web/API/Navigator/serviceWorker MDN Navigator.serviceWorker documentation>
getServiceWorker :: (MonadDOM m) => Navigator -> m ServiceWorkerContainer
getServiceWorker self = liftDOM ((js_getServiceWorker (self)))