module Data.DOM.CSSFontFaceRule (get'style, getm'style) 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'style :: (Monad mn, CCSSFontFaceRule this, CCSSStyleDeclaration zz) => Expression this -> mn (Expression zz) get'style thisp = do let et = undefined :: zz let r = DotRef et (thisp /\ et) (Id et "style") return r getm'style :: (Monad mn, CCSSFontFaceRule this) => Expression this -> mn (Expression TCSSStyleDeclaration) getm'style = get'style