ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/TouchInit.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.TouchInit
       (js_newTouchInit, js_setIdentifier, js_getIdentifier, js_setTarget, js_getTarget, js_setClientX, js_getClientX, js_setClientY, js_getClientY, js_setScreenX, js_getScreenX, js_setScreenY, js_getScreenY, js_setPageX, js_getPageX, js_setPageY, js_getPageY, js_setRadiusX, js_getRadiusX, js_setRadiusY, js_getRadiusY, js_setRotationAngle, js_getRotationAngle, js_setForce, js_getForce, js_setAltitudeAngle, js_getAltitudeAngle, js_setAzimuthAngle, js_getAzimuthAngle, js_setTouchType, js_getTouchType, newTouchInit, setIdentifier, getIdentifier, setTarget, getTarget, setClientX, getClientX, getClientXUnsafe, getClientXUnchecked, setClientY, getClientY, getClientYUnsafe, getClientYUnchecked, setScreenX, getScreenX, getScreenXUnsafe, getScreenXUnchecked, setScreenY, getScreenY, getScreenYUnsafe, getScreenYUnchecked, setPageX, getPageX, getPageXUnsafe, getPageXUnchecked, setPageY, getPageY, getPageYUnsafe, getPageYUnchecked, setRadiusX, getRadiusX, getRadiusXUnsafe, getRadiusXUnchecked, setRadiusY, getRadiusY, getRadiusYUnsafe, getRadiusYUnchecked, setRotationAngle, getRotationAngle, getRotationAngleUnsafe, getRotationAngleUnchecked, setForce, getForce, getForceUnsafe, getForceUnchecked, setAltitudeAngle, getAltitudeAngle, getAltitudeAngleUnsafe, getAltitudeAngleUnchecked, setAzimuthAngle, getAzimuthAngle, getAzimuthAngleUnsafe, getAzimuthAngleUnchecked, setTouchType, getTouchType, getTouchTypeUnsafe, getTouchTypeUnchecked, TouchInit(..), gTypeTouchInit)
       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 ({\"identifier\": $1, \"target\": $2}); })"
        js_newTouchInit :: Int -> EventTarget -> IO TouchInit
-- | <https://w3c.github.io/touch-events/#dom-touchinit TouchInit specification>
newTouchInit :: (MonadDOM m, IsEventTarget target) => Int -> target -> m TouchInit
newTouchInit identifier target = liftDOM ((js_newTouchInit (identifier) (Types.toEventTarget target)))

foreign import javascript safe "(($1, $2) => { $1[\"identifier\"] = $2; })"
        js_setIdentifier :: TouchInit -> Int -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-identifier TouchInit.identifier specification>
setIdentifier :: (MonadDOM m) => TouchInit -> Int -> m ()
setIdentifier self val = liftDOM (void ((js_setIdentifier (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"identifier\"]; })"
        js_getIdentifier :: TouchInit -> IO Int
-- | <https://w3c.github.io/touch-events/#dom-touchinit-identifier TouchInit.identifier specification>
getIdentifier :: (MonadDOM m) => TouchInit -> m Int
getIdentifier self = liftDOM ((js_getIdentifier (self)))

foreign import javascript safe "(($1, $2) => { $1[\"target\"] = $2; })"
        js_setTarget :: TouchInit -> EventTarget -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-target TouchInit.target specification>
setTarget :: (MonadDOM m, IsEventTarget val) => TouchInit -> val -> m ()
setTarget self val = liftDOM (void ((js_setTarget (self) (Types.toEventTarget val))))

foreign import javascript unsafe "(($1) => { return $1[\"target\"]; })"
        js_getTarget :: TouchInit -> IO EventTarget
-- | <https://w3c.github.io/touch-events/#dom-touchinit-target TouchInit.target specification>
getTarget :: (MonadDOM m) => TouchInit -> m EventTarget
getTarget self = liftDOM ((js_getTarget (self)))

foreign import javascript safe "(($1, $2) => { $1[\"clientX\"] = $2; })"
        js_setClientX :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-clientx TouchInit.clientX specification>
setClientX :: (MonadDOM m) => TouchInit -> Double -> m ()
setClientX self val = liftDOM (void ((js_setClientX (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"clientX\"]; })"
        js_getClientX :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-clientx TouchInit.clientX specification>
getClientX :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getClientX self = liftDOM (((js_getClientX (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-clientx TouchInit.clientX specification>
getClientXUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getClientXUnsafe self = liftDOM ((((js_getClientX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-clientx TouchInit.clientX specification>
getClientXUnchecked :: (MonadDOM m) => TouchInit -> m Double
getClientXUnchecked self = liftDOM ((pFromJSVal <$> (js_getClientX (self))))

foreign import javascript safe "(($1, $2) => { $1[\"clientY\"] = $2; })"
        js_setClientY :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-clienty TouchInit.clientY specification>
setClientY :: (MonadDOM m) => TouchInit -> Double -> m ()
setClientY self val = liftDOM (void ((js_setClientY (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"clientY\"]; })"
        js_getClientY :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-clienty TouchInit.clientY specification>
getClientY :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getClientY self = liftDOM (((js_getClientY (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-clienty TouchInit.clientY specification>
getClientYUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getClientYUnsafe self = liftDOM ((((js_getClientY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-clienty TouchInit.clientY specification>
getClientYUnchecked :: (MonadDOM m) => TouchInit -> m Double
getClientYUnchecked self = liftDOM ((pFromJSVal <$> (js_getClientY (self))))

foreign import javascript safe "(($1, $2) => { $1[\"screenX\"] = $2; })"
        js_setScreenX :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-screenx TouchInit.screenX specification>
setScreenX :: (MonadDOM m) => TouchInit -> Double -> m ()
setScreenX self val = liftDOM (void ((js_setScreenX (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"screenX\"]; })"
        js_getScreenX :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-screenx TouchInit.screenX specification>
getScreenX :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getScreenX self = liftDOM (((js_getScreenX (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-screenx TouchInit.screenX specification>
getScreenXUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getScreenXUnsafe self = liftDOM ((((js_getScreenX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-screenx TouchInit.screenX specification>
getScreenXUnchecked :: (MonadDOM m) => TouchInit -> m Double
getScreenXUnchecked self = liftDOM ((pFromJSVal <$> (js_getScreenX (self))))

foreign import javascript safe "(($1, $2) => { $1[\"screenY\"] = $2; })"
        js_setScreenY :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-screeny TouchInit.screenY specification>
setScreenY :: (MonadDOM m) => TouchInit -> Double -> m ()
setScreenY self val = liftDOM (void ((js_setScreenY (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"screenY\"]; })"
        js_getScreenY :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-screeny TouchInit.screenY specification>
getScreenY :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getScreenY self = liftDOM (((js_getScreenY (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-screeny TouchInit.screenY specification>
getScreenYUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getScreenYUnsafe self = liftDOM ((((js_getScreenY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-screeny TouchInit.screenY specification>
getScreenYUnchecked :: (MonadDOM m) => TouchInit -> m Double
getScreenYUnchecked self = liftDOM ((pFromJSVal <$> (js_getScreenY (self))))

foreign import javascript safe "(($1, $2) => { $1[\"pageX\"] = $2; })"
        js_setPageX :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagex TouchInit.pageX specification>
setPageX :: (MonadDOM m) => TouchInit -> Double -> m ()
setPageX self val = liftDOM (void ((js_setPageX (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"pageX\"]; })"
        js_getPageX :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagex TouchInit.pageX specification>
getPageX :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getPageX self = liftDOM (((js_getPageX (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagex TouchInit.pageX specification>
getPageXUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getPageXUnsafe self = liftDOM ((((js_getPageX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagex TouchInit.pageX specification>
getPageXUnchecked :: (MonadDOM m) => TouchInit -> m Double
getPageXUnchecked self = liftDOM ((pFromJSVal <$> (js_getPageX (self))))

foreign import javascript safe "(($1, $2) => { $1[\"pageY\"] = $2; })"
        js_setPageY :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagey TouchInit.pageY specification>
setPageY :: (MonadDOM m) => TouchInit -> Double -> m ()
setPageY self val = liftDOM (void ((js_setPageY (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"pageY\"]; })"
        js_getPageY :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagey TouchInit.pageY specification>
getPageY :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getPageY self = liftDOM (((js_getPageY (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagey TouchInit.pageY specification>
getPageYUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getPageYUnsafe self = liftDOM ((((js_getPageY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-pagey TouchInit.pageY specification>
getPageYUnchecked :: (MonadDOM m) => TouchInit -> m Double
getPageYUnchecked self = liftDOM ((pFromJSVal <$> (js_getPageY (self))))

foreign import javascript safe "(($1, $2) => { $1[\"radiusX\"] = $2; })"
        js_setRadiusX :: TouchInit -> Float -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusx TouchInit.radiusX specification>
setRadiusX :: (MonadDOM m) => TouchInit -> Float -> m ()
setRadiusX self val = liftDOM (void ((js_setRadiusX (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"radiusX\"]; })"
        js_getRadiusX :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusx TouchInit.radiusX specification>
getRadiusX :: (MonadDOM m) => TouchInit -> m (Maybe Float)
getRadiusX self = liftDOM (((js_getRadiusX (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusx TouchInit.radiusX specification>
getRadiusXUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Float
getRadiusXUnsafe self = liftDOM ((((js_getRadiusX (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusx TouchInit.radiusX specification>
getRadiusXUnchecked :: (MonadDOM m) => TouchInit -> m Float
getRadiusXUnchecked self = liftDOM ((pFromJSVal <$> (js_getRadiusX (self))))

foreign import javascript safe "(($1, $2) => { $1[\"radiusY\"] = $2; })"
        js_setRadiusY :: TouchInit -> Float -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusy TouchInit.radiusY specification>
setRadiusY :: (MonadDOM m) => TouchInit -> Float -> m ()
setRadiusY self val = liftDOM (void ((js_setRadiusY (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"radiusY\"]; })"
        js_getRadiusY :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusy TouchInit.radiusY specification>
getRadiusY :: (MonadDOM m) => TouchInit -> m (Maybe Float)
getRadiusY self = liftDOM (((js_getRadiusY (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusy TouchInit.radiusY specification>
getRadiusYUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Float
getRadiusYUnsafe self = liftDOM ((((js_getRadiusY (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-radiusy TouchInit.radiusY specification>
getRadiusYUnchecked :: (MonadDOM m) => TouchInit -> m Float
getRadiusYUnchecked self = liftDOM ((pFromJSVal <$> (js_getRadiusY (self))))

foreign import javascript safe "(($1, $2) => { $1[\"rotationAngle\"] = $2; })"
        js_setRotationAngle :: TouchInit -> Float -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-rotationangle TouchInit.rotationAngle specification>
setRotationAngle :: (MonadDOM m) => TouchInit -> Float -> m ()
setRotationAngle self val = liftDOM (void ((js_setRotationAngle (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"rotationAngle\"]; })"
        js_getRotationAngle :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-rotationangle TouchInit.rotationAngle specification>
getRotationAngle :: (MonadDOM m) => TouchInit -> m (Maybe Float)
getRotationAngle self = liftDOM (((js_getRotationAngle (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-rotationangle TouchInit.rotationAngle specification>
getRotationAngleUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Float
getRotationAngleUnsafe self = liftDOM ((((js_getRotationAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-rotationangle TouchInit.rotationAngle specification>
getRotationAngleUnchecked :: (MonadDOM m) => TouchInit -> m Float
getRotationAngleUnchecked self = liftDOM ((pFromJSVal <$> (js_getRotationAngle (self))))

foreign import javascript safe "(($1, $2) => { $1[\"force\"] = $2; })"
        js_setForce :: TouchInit -> Float -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-force TouchInit.force specification>
setForce :: (MonadDOM m) => TouchInit -> Float -> m ()
setForce self val = liftDOM (void ((js_setForce (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"force\"]; })"
        js_getForce :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-force TouchInit.force specification>
getForce :: (MonadDOM m) => TouchInit -> m (Maybe Float)
getForce self = liftDOM (((js_getForce (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-force TouchInit.force specification>
getForceUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Float
getForceUnsafe self = liftDOM ((((js_getForce (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-force TouchInit.force specification>
getForceUnchecked :: (MonadDOM m) => TouchInit -> m Float
getForceUnchecked self = liftDOM ((pFromJSVal <$> (js_getForce (self))))

foreign import javascript safe "(($1, $2) => { $1[\"altitudeAngle\"] = $2; })"
        js_setAltitudeAngle :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-altitudeangle TouchInit.altitudeAngle specification>
setAltitudeAngle :: (MonadDOM m) => TouchInit -> Double -> m ()
setAltitudeAngle self val = liftDOM (void ((js_setAltitudeAngle (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"altitudeAngle\"]; })"
        js_getAltitudeAngle :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-altitudeangle TouchInit.altitudeAngle specification>
getAltitudeAngle :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getAltitudeAngle self = liftDOM (((js_getAltitudeAngle (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-altitudeangle TouchInit.altitudeAngle specification>
getAltitudeAngleUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getAltitudeAngleUnsafe self = liftDOM ((((js_getAltitudeAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-altitudeangle TouchInit.altitudeAngle specification>
getAltitudeAngleUnchecked :: (MonadDOM m) => TouchInit -> m Double
getAltitudeAngleUnchecked self = liftDOM ((pFromJSVal <$> (js_getAltitudeAngle (self))))

foreign import javascript safe "(($1, $2) => { $1[\"azimuthAngle\"] = $2; })"
        js_setAzimuthAngle :: TouchInit -> Double -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-azimuthangle TouchInit.azimuthAngle specification>
setAzimuthAngle :: (MonadDOM m) => TouchInit -> Double -> m ()
setAzimuthAngle self val = liftDOM (void ((js_setAzimuthAngle (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"azimuthAngle\"]; })"
        js_getAzimuthAngle :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-azimuthangle TouchInit.azimuthAngle specification>
getAzimuthAngle :: (MonadDOM m) => TouchInit -> m (Maybe Double)
getAzimuthAngle self = liftDOM (((js_getAzimuthAngle (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-azimuthangle TouchInit.azimuthAngle specification>
getAzimuthAngleUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m Double
getAzimuthAngleUnsafe self = liftDOM ((((js_getAzimuthAngle (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-azimuthangle TouchInit.azimuthAngle specification>
getAzimuthAngleUnchecked :: (MonadDOM m) => TouchInit -> m Double
getAzimuthAngleUnchecked self = liftDOM ((pFromJSVal <$> (js_getAzimuthAngle (self))))

foreign import javascript safe "(($1, $2) => { $1[\"touchType\"] = $2; })"
        js_setTouchType :: TouchInit -> JSVal -> IO ()
-- | <https://w3c.github.io/touch-events/#dom-touchinit-touchtype TouchInit.touchType specification>
setTouchType :: (MonadDOM m) => TouchInit -> TouchType -> m ()
setTouchType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTouchType (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"touchType\"]; })"
        js_getTouchType :: TouchInit -> IO JSVal
-- | <https://w3c.github.io/touch-events/#dom-touchinit-touchtype TouchInit.touchType specification>
getTouchType :: (MonadDOM m) => TouchInit -> m (Maybe TouchType)
getTouchType self = liftDOM (((js_getTouchType (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-touchtype TouchInit.touchType specification>
getTouchTypeUnsafe :: (MonadDOM m, HasCallStack) => TouchInit -> m TouchType
getTouchTypeUnsafe self = liftDOM ((((js_getTouchType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/touch-events/#dom-touchinit-touchtype TouchInit.touchType specification>
getTouchTypeUnchecked :: (MonadDOM m) => TouchInit -> m TouchType
getTouchTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getTouchType (self))))