module JSDOM.Generated.RGBColor
(getRed, getRedUnsafe, getRedUnchecked, getGreen, getGreenUnsafe,
getGreenUnchecked, getBlue, getBlueUnsafe, getBlueUnchecked,
RGBColor(..), gTypeRGBColor)
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
getRed :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getRed self = liftDOM ((self ^. js "red") >>= fromJSVal)
getRedUnsafe ::
(MonadDOM m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getRedUnsafe self
= liftDOM
(((self ^. js "red") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRedUnchecked :: (MonadDOM m) => RGBColor -> m CSSPrimitiveValue
getRedUnchecked self
= liftDOM ((self ^. js "red") >>= fromJSValUnchecked)
getGreen :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getGreen self = liftDOM ((self ^. js "green") >>= fromJSVal)
getGreenUnsafe ::
(MonadDOM m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getGreenUnsafe self
= liftDOM
(((self ^. js "green") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getGreenUnchecked ::
(MonadDOM m) => RGBColor -> m CSSPrimitiveValue
getGreenUnchecked self
= liftDOM ((self ^. js "green") >>= fromJSValUnchecked)
getBlue :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue)
getBlue self = liftDOM ((self ^. js "blue") >>= fromJSVal)
getBlueUnsafe ::
(MonadDOM m, HasCallStack) => RGBColor -> m CSSPrimitiveValue
getBlueUnsafe self
= liftDOM
(((self ^. js "blue") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getBlueUnchecked :: (MonadDOM m) => RGBColor -> m CSSPrimitiveValue
getBlueUnchecked self
= liftDOM ((self ^. js "blue") >>= fromJSValUnchecked)