{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Rect (js_getTop, getTop, getTopUnsafe, getTopUnchecked, js_getRight, getRight, getRightUnsafe, getRightUnchecked, js_getBottom, getBottom, getBottomUnsafe, getBottomUnchecked, js_getLeft, getLeft, getLeftUnsafe, getLeftUnchecked, Rect(..), gTypeRect) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"top\"]" js_getTop :: Rect -> IO (Nullable CSSPrimitiveValue) -- | getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getTop self = liftIO (nullableToMaybe <$> (js_getTop (self))) -- | getTopUnsafe :: (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue getTopUnsafe self = liftIO ((nullableToMaybe <$> (js_getTop (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTopUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getTopUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTop (self))) foreign import javascript unsafe "$1[\"right\"]" js_getRight :: Rect -> IO (Nullable CSSPrimitiveValue) -- | getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getRight self = liftIO (nullableToMaybe <$> (js_getRight (self))) -- | getRightUnsafe :: (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue getRightUnsafe self = liftIO ((nullableToMaybe <$> (js_getRight (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRightUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getRightUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRight (self))) foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom :: Rect -> IO (Nullable CSSPrimitiveValue) -- | getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self))) -- | getBottomUnsafe :: (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue getBottomUnsafe self = liftIO ((nullableToMaybe <$> (js_getBottom (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getBottomUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getBottomUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getBottom (self))) foreign import javascript unsafe "$1[\"left\"]" js_getLeft :: Rect -> IO (Nullable CSSPrimitiveValue) -- | getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self))) -- | getLeftUnsafe :: (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue getLeftUnsafe self = liftIO ((nullableToMaybe <$> (js_getLeft (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getLeftUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getLeftUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getLeft (self)))