module Data.DOM.DocumentCSS (getOverrideStyle) 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)
 
getOverrideStyle ::
                 (Monad mn, CDocumentCSS this, CElement elt,
                  CCSSStyleDeclaration zz) =>
                   Expression elt ->
                     Expression String -> Expression this -> mn (Expression zz)
getOverrideStyle a b thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "getOverrideStyle")
       return (CallExpr et r [a /\ et, b /\ et])