module Data.DOM.HTMLElement
       (set'id, get'id, getm'id, set'title, get'title, getm'title,
        set'lang, get'lang, getm'lang, set'dir, get'dir, getm'dir,
        set'className, get'className, getm'className)
       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'id ::
       (Monad mn, CHTMLElement zz) =>
         Expression String -> Expression zz -> mn (Expression zz)
set'id = setjsProperty "id"
 
get'id ::
       (Monad mn, CHTMLElement this) =>
         Expression this -> mn (Expression String)
get'id thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "id")
       return r
 
getm'id ::
        (Monad mn, CHTMLElement this) =>
          Expression this -> mn (Expression String)
getm'id = get'id
 
set'title ::
          (Monad mn, CHTMLElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'title = setjsProperty "title"
 
get'title ::
          (Monad mn, CHTMLElement this) =>
            Expression this -> mn (Expression String)
get'title thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "title")
       return r
 
getm'title ::
           (Monad mn, CHTMLElement this) =>
             Expression this -> mn (Expression String)
getm'title = get'title
 
set'lang ::
         (Monad mn, CHTMLElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'lang = setjsProperty "lang"
 
get'lang ::
         (Monad mn, CHTMLElement this) =>
           Expression this -> mn (Expression String)
get'lang thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "lang")
       return r
 
getm'lang ::
          (Monad mn, CHTMLElement this) =>
            Expression this -> mn (Expression String)
getm'lang = get'lang
 
set'dir ::
        (Monad mn, CHTMLElement zz) =>
          Expression String -> Expression zz -> mn (Expression zz)
set'dir = setjsProperty "dir"
 
get'dir ::
        (Monad mn, CHTMLElement this) =>
          Expression this -> mn (Expression String)
get'dir thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "dir")
       return r
 
getm'dir ::
         (Monad mn, CHTMLElement this) =>
           Expression this -> mn (Expression String)
getm'dir = get'dir
 
set'className ::
              (Monad mn, CHTMLElement zz) =>
                Expression String -> Expression zz -> mn (Expression zz)
set'className = setjsProperty "className"
 
get'className ::
              (Monad mn, CHTMLElement this) =>
                Expression this -> mn (Expression String)
get'className thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "className")
       return r
 
getm'className ::
               (Monad mn, CHTMLElement this) =>
                 Expression this -> mn (Expression String)
getm'className = get'className