module JSDOM.Generated.Rect
(getTop, getTopUnsafe, getTopUnchecked, getRight, getRightUnsafe,
getRightUnchecked, getBottom, getBottomUnsafe, getBottomUnchecked,
getLeft, getLeftUnsafe, getLeftUnchecked, Rect(..), gTypeRect)
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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
getTop :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)
getTop self = liftDOM ((self ^. js "top") >>= fromJSVal)
getTopUnsafe ::
(MonadDOM m, HasCallStack) => Rect -> m CSSPrimitiveValue
getTopUnsafe self
= liftDOM
(((self ^. js "top") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTopUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue
getTopUnchecked self
= liftDOM ((self ^. js "top") >>= fromJSValUnchecked)
getRight :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)
getRight self = liftDOM ((self ^. js "right") >>= fromJSVal)
getRightUnsafe ::
(MonadDOM m, HasCallStack) => Rect -> m CSSPrimitiveValue
getRightUnsafe self
= liftDOM
(((self ^. js "right") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRightUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue
getRightUnchecked self
= liftDOM ((self ^. js "right") >>= fromJSValUnchecked)
getBottom :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)
getBottom self = liftDOM ((self ^. js "bottom") >>= fromJSVal)
getBottomUnsafe ::
(MonadDOM m, HasCallStack) => Rect -> m CSSPrimitiveValue
getBottomUnsafe self
= liftDOM
(((self ^. js "bottom") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getBottomUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue
getBottomUnchecked self
= liftDOM ((self ^. js "bottom") >>= fromJSValUnchecked)
getLeft :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue)
getLeft self = liftDOM ((self ^. js "left") >>= fromJSVal)
getLeftUnsafe ::
(MonadDOM m, HasCallStack) => Rect -> m CSSPrimitiveValue
getLeftUnsafe self
= liftDOM
(((self ^. js "left") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getLeftUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue
getLeftUnchecked self
= liftDOM ((self ^. js "left") >>= fromJSValUnchecked)