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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from touch-events (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.TouchEventInit
       (js_newTouchEventInit, js_setTouches, js_getTouches, js_setTargetTouches, js_getTargetTouches, js_setChangedTouches, js_getChangedTouches, newTouchEventInit, setTouches, getTouches, getTouchesUnsafe, getTouchesUnchecked, setTargetTouches, getTargetTouches, getTargetTouchesUnsafe, getTargetTouchesUnchecked, setChangedTouches, getChangedTouches, getChangedTouchesUnsafe, getChangedTouchesUnchecked, TouchEventInit(..), gTypeTouchEventInit)
       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_newTouchEventInit :: IO TouchEventInit
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit TouchEventInit specification>
newTouchEventInit :: (MonadDOM m) => m TouchEventInit
newTouchEventInit = liftDOM ((js_newTouchEventInit))

foreign import javascript safe "(($1, $2) => { $1[\"touches\"] = $2; })"
        js_setTouches :: TouchEventInit -> JSVal -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-touches TouchEventInit.touches specification>
setTouches :: (MonadDOM m) => TouchEventInit -> [Touch] -> m ()
setTouches self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTouches (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"touches\"]; })"
        js_getTouches :: TouchEventInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-touches TouchEventInit.touches specification>
getTouches :: (MonadDOM m) => TouchEventInit -> m (Maybe [Touch])
getTouches self = liftDOM (((js_getTouches (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-touches TouchEventInit.touches specification>
getTouchesUnsafe :: (MonadDOM m, HasCallStack) => TouchEventInit -> m [Touch]
getTouchesUnsafe self = liftDOM ((((js_getTouches (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-touches TouchEventInit.touches specification>
getTouchesUnchecked :: (MonadDOM m) => TouchEventInit -> m [Touch]
getTouchesUnchecked self = liftDOM (((js_getTouches (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"targetTouches\"] = $2; })"
        js_setTargetTouches :: TouchEventInit -> JSVal -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-targettouches TouchEventInit.targetTouches specification>
setTargetTouches :: (MonadDOM m) => TouchEventInit -> [Touch] -> m ()
setTargetTouches self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTargetTouches (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"targetTouches\"]; })"
        js_getTargetTouches :: TouchEventInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-targettouches TouchEventInit.targetTouches specification>
getTargetTouches :: (MonadDOM m) => TouchEventInit -> m (Maybe [Touch])
getTargetTouches self = liftDOM (((js_getTargetTouches (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-targettouches TouchEventInit.targetTouches specification>
getTargetTouchesUnsafe :: (MonadDOM m, HasCallStack) => TouchEventInit -> m [Touch]
getTargetTouchesUnsafe self = liftDOM ((((js_getTargetTouches (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-targettouches TouchEventInit.targetTouches specification>
getTargetTouchesUnchecked :: (MonadDOM m) => TouchEventInit -> m [Touch]
getTargetTouchesUnchecked self = liftDOM (((js_getTargetTouches (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"changedTouches\"] = $2; })"
        js_setChangedTouches :: TouchEventInit -> JSVal -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-changedtouches TouchEventInit.changedTouches specification>
setChangedTouches :: (MonadDOM m) => TouchEventInit -> [Touch] -> m ()
setChangedTouches self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setChangedTouches (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"changedTouches\"]; })"
        js_getChangedTouches :: TouchEventInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-changedtouches TouchEventInit.changedTouches specification>
getChangedTouches :: (MonadDOM m) => TouchEventInit -> m (Maybe [Touch])
getChangedTouches self = liftDOM (((js_getChangedTouches (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-changedtouches TouchEventInit.changedTouches specification>
getChangedTouchesUnsafe :: (MonadDOM m, HasCallStack) => TouchEventInit -> m [Touch]
getChangedTouchesUnsafe self = liftDOM ((((js_getChangedTouches (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-toucheventinit-changedtouches TouchEventInit.changedTouches specification>
getChangedTouchesUnchecked :: (MonadDOM m) => TouchEventInit -> m [Touch]
getChangedTouchesUnchecked self = liftDOM (((js_getChangedTouches (self)) >>= fromJSValUnchecked))