{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.KeyboardEvent
(newKeyboardEvent, getModifierState, getModifierState_,
initKeyboardEvent, pattern DOM_KEY_LOCATION_STANDARD,
pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT,
pattern DOM_KEY_LOCATION_NUMPAD, getKey, getCode, getLocation,
getCtrlKey, getShiftKey, getAltKey, getMetaKey, getRepeat,
getIsComposing, getKeyIdentifier, getKeyLocation, getAltGraphKey,
getCharCode, getKeyCode, getWhich, KeyboardEvent(..),
gTypeKeyboardEvent)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
newKeyboardEvent ::
(MonadDOM m, ToJSString type') =>
type' -> Maybe KeyboardEventInit -> m KeyboardEvent
newKeyboardEvent :: type' -> Maybe KeyboardEventInit -> m KeyboardEvent
newKeyboardEvent type'
type' Maybe KeyboardEventInit
eventInitDict
= DOM KeyboardEvent -> m KeyboardEvent
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> KeyboardEvent
KeyboardEvent (JSVal -> KeyboardEvent) -> JSM JSVal -> DOM KeyboardEvent
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new ([Char] -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg [Char]
"KeyboardEvent") [type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type', Maybe KeyboardEventInit -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe KeyboardEventInit
eventInitDict])
getModifierState ::
(MonadDOM m, ToJSString keyArg) =>
KeyboardEvent -> keyArg -> m Bool
getModifierState :: KeyboardEvent -> keyArg -> m Bool
getModifierState KeyboardEvent
self keyArg
keyArg
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getModifierState" [keyArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal keyArg
keyArg]) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getModifierState_ ::
(MonadDOM m, ToJSString keyArg) => KeyboardEvent -> keyArg -> m ()
getModifierState_ :: KeyboardEvent -> keyArg -> m ()
getModifierState_ KeyboardEvent
self keyArg
keyArg
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getModifierState" [keyArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal keyArg
keyArg]))
initKeyboardEvent ::
(MonadDOM m, ToJSString type', ToJSString keyIdentifier) =>
KeyboardEvent ->
Maybe type' ->
Bool ->
Bool ->
Maybe Window ->
Maybe keyIdentifier ->
Maybe Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()
initKeyboardEvent :: KeyboardEvent
-> Maybe type'
-> Bool
-> Bool
-> Maybe Window
-> Maybe keyIdentifier
-> Maybe Word
-> Bool
-> Bool
-> Bool
-> Bool
-> Bool
-> m ()
initKeyboardEvent KeyboardEvent
self Maybe type'
type' Bool
canBubble Bool
cancelable Maybe Window
view
Maybe keyIdentifier
keyIdentifier Maybe Word
location Bool
ctrlKey Bool
altKey Bool
shiftKey Bool
metaKey Bool
altGraphKey
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"initKeyboardEvent"
[Maybe type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe type'
type', Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
canBubble, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
cancelable,
Maybe Window -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Window
view, Maybe keyIdentifier -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe keyIdentifier
keyIdentifier, Maybe Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Word
location,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
ctrlKey, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
altKey, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
shiftKey, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
metaKey,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
altGraphKey]))
pattern $bDOM_KEY_LOCATION_STANDARD :: a
$mDOM_KEY_LOCATION_STANDARD :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DOM_KEY_LOCATION_STANDARD = 0
pattern $bDOM_KEY_LOCATION_LEFT :: a
$mDOM_KEY_LOCATION_LEFT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DOM_KEY_LOCATION_LEFT = 1
pattern $bDOM_KEY_LOCATION_RIGHT :: a
$mDOM_KEY_LOCATION_RIGHT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DOM_KEY_LOCATION_RIGHT = 2
pattern $bDOM_KEY_LOCATION_NUMPAD :: a
$mDOM_KEY_LOCATION_NUMPAD :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DOM_KEY_LOCATION_NUMPAD = 3
getKey ::
(MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getKey :: KeyboardEvent -> m result
getKey KeyboardEvent
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"key") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCode ::
(MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getCode :: KeyboardEvent -> m result
getCode KeyboardEvent
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"code") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLocation :: (MonadDOM m) => KeyboardEvent -> m Word
getLocation :: KeyboardEvent -> m Word
getLocation KeyboardEvent
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"location") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getCtrlKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getCtrlKey :: KeyboardEvent -> m Bool
getCtrlKey KeyboardEvent
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"ctrlKey") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getShiftKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getShiftKey :: KeyboardEvent -> m Bool
getShiftKey KeyboardEvent
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"shiftKey") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getAltKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getAltKey :: KeyboardEvent -> m Bool
getAltKey KeyboardEvent
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"altKey") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getMetaKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getMetaKey :: KeyboardEvent -> m Bool
getMetaKey KeyboardEvent
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"metaKey") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getRepeat :: (MonadDOM m) => KeyboardEvent -> m Bool
getRepeat :: KeyboardEvent -> m Bool
getRepeat KeyboardEvent
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"repeat") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getIsComposing :: (MonadDOM m) => KeyboardEvent -> m Bool
getIsComposing :: KeyboardEvent -> m Bool
getIsComposing KeyboardEvent
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"isComposing") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getKeyIdentifier ::
(MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getKeyIdentifier :: KeyboardEvent -> m result
getKeyIdentifier KeyboardEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"keyIdentifier") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getKeyLocation :: (MonadDOM m) => KeyboardEvent -> m Word
getKeyLocation :: KeyboardEvent -> m Word
getKeyLocation KeyboardEvent
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"keyLocation") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getAltGraphKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getAltGraphKey :: KeyboardEvent -> m Bool
getAltGraphKey KeyboardEvent
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"altGraphKey") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getCharCode :: (MonadDOM m) => KeyboardEvent -> m Word
getCharCode :: KeyboardEvent -> m Word
getCharCode KeyboardEvent
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"charCode") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getKeyCode :: (MonadDOM m) => KeyboardEvent -> m Word
getKeyCode :: KeyboardEvent -> m Word
getKeyCode KeyboardEvent
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"keyCode") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getWhich :: (MonadDOM m) => KeyboardEvent -> m Word
getWhich :: KeyboardEvent -> m Word
getWhich KeyboardEvent
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((KeyboardEvent
self KeyboardEvent
-> Getting (JSM JSVal) KeyboardEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter KeyboardEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"which") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))