module GHCJS.DOM.JSFFI.Generated.RGBColor
(js_getRed, getRed, getRedUnsafe, getRedUnchecked, js_getGreen,
getGreen, getGreenUnsafe, getGreenUnchecked, js_getBlue, getBlue,
getBlueUnsafe, getBlueUnchecked, RGBColor(..), gTypeRGBColor)
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[\"red\"]" js_getRed ::
RGBColor -> IO (Nullable CSSPrimitiveValue)
getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getRed self = liftIO (nullableToMaybe <$> (js_getRed (self)))
getRedUnsafe ::
(MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getRedUnsafe self
= liftIO
((nullableToMaybe <$> (js_getRed (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getRedUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue
getRedUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getRed (self)))
foreign import javascript unsafe "$1[\"green\"]" js_getGreen ::
RGBColor -> IO (Nullable CSSPrimitiveValue)
getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self)))
getGreenUnsafe ::
(MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getGreenUnsafe self
= liftIO
((nullableToMaybe <$> (js_getGreen (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getGreenUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue
getGreenUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getGreen (self)))
foreign import javascript unsafe "$1[\"blue\"]" js_getBlue ::
RGBColor -> IO (Nullable CSSPrimitiveValue)
getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self)))
getBlueUnsafe ::
(MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getBlueUnsafe self
= liftIO
((nullableToMaybe <$> (js_getBlue (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getBlueUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue
getBlueUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getBlue (self)))