module Data.DOM.HTMLTitleElement (set'text, get'text, getm'text)
       where
import Data.DOM.Html2
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
set'text ::
         (Monad mn, CHTMLTitleElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'text = setjsProperty "text"
 
get'text ::
         (Monad mn, CHTMLTitleElement this) =>
           Expression this -> mn (Expression String)
get'text thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "text")
       return r
 
getm'text ::
          (Monad mn, CHTMLTitleElement this) =>
            Expression this -> mn (Expression String)
getm'text = get'text