--------------------------------------------------------------------------------
-- |
-- Module      :  HGeometry.Miso.FFI.Extra
-- Copyright   :  (C) Frank Staals
-- License     :  see the LICENSE file
-- Maintainer  :  Frank Staals
--
-- Some additional FFI helpers for miso
--
--------------------------------------------------------------------------------
module HGeometry.Miso.FFI.Extra where

import Control.Lens
import Language.Javascript.JSaddle

--------------------------------------------------------------------------------

-- | call the "getBoundingClientRect" function of an object
getBoundingClientRect  :: JSVal -> JSM JSVal
getBoundingClientRect :: JSVal -> JSM JSVal
getBoundingClientRect JSVal
e = JSVal
e JSVal -> Getting (JSM JSVal) JSVal (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> JSF
forall name. ToJSString name => name -> JSF
js0 String
"getBoundingClientRect"