module Data.DOM.LinkStyle (get'sheet, getm'sheet) where
import Data.DOM.Stylesheets
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'sheet ::
          (Monad mn, CLinkStyle this, CStyleSheet zz) =>
            Expression this -> mn (Expression zz)
get'sheet thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "sheet")
       return r
 
getm'sheet ::
           (Monad mn, CLinkStyle this) =>
             Expression this -> mn (Expression TStyleSheet)
getm'sheet = get'sheet