module Data.DOM.RGBColor
       (get'red, getm'red, get'green, getm'green, get'blue, getm'blue)
       where
import Data.DOM.Css
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Views
import Data.DOM.Stylesheets
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'red ::
        (Monad mn, CRGBColor this, CCSSPrimitiveValue zz) =>
          Expression this -> mn (Expression zz)
get'red thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "red")
       return r
 
getm'red ::
         (Monad mn, CRGBColor this) =>
           Expression this -> mn (Expression TCSSPrimitiveValue)
getm'red = get'red
 
get'green ::
          (Monad mn, CRGBColor this, CCSSPrimitiveValue zz) =>
            Expression this -> mn (Expression zz)
get'green thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "green")
       return r
 
getm'green ::
           (Monad mn, CRGBColor this) =>
             Expression this -> mn (Expression TCSSPrimitiveValue)
getm'green = get'green
 
get'blue ::
         (Monad mn, CRGBColor this, CCSSPrimitiveValue zz) =>
           Expression this -> mn (Expression zz)
get'blue thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "blue")
       return r
 
getm'blue ::
          (Monad mn, CRGBColor this) =>
            Expression this -> mn (Expression TCSSPrimitiveValue)
getm'blue = get'blue