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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from geolocation (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.PositionOptions
       (js_newPositionOptions, js_setEnableHighAccuracy, js_getEnableHighAccuracy, js_setTimeout, js_getTimeout, js_setMaximumAge, js_getMaximumAge, newPositionOptions, setEnableHighAccuracy, getEnableHighAccuracy, getEnableHighAccuracyUnsafe, getEnableHighAccuracyUnchecked, setTimeout, getTimeout, getTimeoutUnsafe, getTimeoutUnchecked, setMaximumAge, getMaximumAge, getMaximumAgeUnsafe, getMaximumAgeUnchecked, PositionOptions(..), gTypePositionOptions)
       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 "(() => { return ({}); })"
        js_newPositionOptions :: IO PositionOptions
-- | <https://w3c.github.io/geolocation/#dom-positionoptions PositionOptions specification>
newPositionOptions :: (MonadDOM m) => m PositionOptions
newPositionOptions = liftDOM ((js_newPositionOptions))

foreign import javascript safe "(($1, $2) => { $1[\"enableHighAccuracy\"] = $2; })"
        js_setEnableHighAccuracy :: PositionOptions -> Bool -> IO ()
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-enablehighaccuracy PositionOptions.enableHighAccuracy specification>
setEnableHighAccuracy :: (MonadDOM m) => PositionOptions -> Bool -> m ()
setEnableHighAccuracy self val = liftDOM (void ((js_setEnableHighAccuracy (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"enableHighAccuracy\"]; })"
        js_getEnableHighAccuracy :: PositionOptions -> IO JSVal
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-enablehighaccuracy PositionOptions.enableHighAccuracy specification>
getEnableHighAccuracy :: (MonadDOM m) => PositionOptions -> m (Maybe Bool)
getEnableHighAccuracy self = liftDOM (((js_getEnableHighAccuracy (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-enablehighaccuracy PositionOptions.enableHighAccuracy specification>
getEnableHighAccuracyUnsafe :: (MonadDOM m, HasCallStack) => PositionOptions -> m Bool
getEnableHighAccuracyUnsafe self = liftDOM ((((js_getEnableHighAccuracy (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-enablehighaccuracy PositionOptions.enableHighAccuracy specification>
getEnableHighAccuracyUnchecked :: (MonadDOM m) => PositionOptions -> m Bool
getEnableHighAccuracyUnchecked self = liftDOM ((pFromJSVal <$> (js_getEnableHighAccuracy (self))))

foreign import javascript safe "(($1, $2) => { $1[\"timeout\"] = $2; })"
        js_setTimeout :: PositionOptions -> Word -> IO ()
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-timeout PositionOptions.timeout specification>
setTimeout :: (MonadDOM m) => PositionOptions -> Word -> m ()
setTimeout self val = liftDOM (void ((js_setTimeout (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"timeout\"]; })"
        js_getTimeout :: PositionOptions -> IO JSVal
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-timeout PositionOptions.timeout specification>
getTimeout :: (MonadDOM m) => PositionOptions -> m (Maybe Word)
getTimeout self = liftDOM (((js_getTimeout (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-timeout PositionOptions.timeout specification>
getTimeoutUnsafe :: (MonadDOM m, HasCallStack) => PositionOptions -> m Word
getTimeoutUnsafe self = liftDOM ((((js_getTimeout (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-timeout PositionOptions.timeout specification>
getTimeoutUnchecked :: (MonadDOM m) => PositionOptions -> m Word
getTimeoutUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimeout (self))))

foreign import javascript safe "(($1, $2) => { $1[\"maximumAge\"] = $2; })"
        js_setMaximumAge :: PositionOptions -> Word -> IO ()
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-maximumage PositionOptions.maximumAge specification>
setMaximumAge :: (MonadDOM m) => PositionOptions -> Word -> m ()
setMaximumAge self val = liftDOM (void ((js_setMaximumAge (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"maximumAge\"]; })"
        js_getMaximumAge :: PositionOptions -> IO JSVal
-- | <https://w3c.github.io/geolocation/#dom-positionoptions-maximumage PositionOptions.maximumAge specification>
getMaximumAge :: (MonadDOM m) => PositionOptions -> m (Maybe Word)
getMaximumAge self = liftDOM (((js_getMaximumAge (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-maximumage PositionOptions.maximumAge specification>
getMaximumAgeUnsafe :: (MonadDOM m, HasCallStack) => PositionOptions -> m Word
getMaximumAgeUnsafe self = liftDOM ((((js_getMaximumAge (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/geolocation/#dom-positionoptions-maximumage PositionOptions.maximumAge specification>
getMaximumAgeUnchecked :: (MonadDOM m) => PositionOptions -> m Word
getMaximumAgeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMaximumAge (self))))