module Data.DOM.HTMLHRElement
       (set'align, get'align, getm'align, set'noShade, get'noShade,
        getm'noShade, set'size, get'size, getm'size, set'width, get'width,
        getm'width, mkHr)
       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'align ::
          (Monad mn, CHTMLHRElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLHRElement this) =>
            Expression this -> mn (Expression String)
get'align thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "align")
       return r
 
getm'align ::
           (Monad mn, CHTMLHRElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
set'noShade ::
            (Monad mn, CHTMLHRElement zz) =>
              Expression Bool -> Expression zz -> mn (Expression zz)
set'noShade = setjsProperty "noShade"
 
get'noShade ::
            (Monad mn, CHTMLHRElement this) =>
              Expression this -> mn (Expression Bool)
get'noShade thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "noShade")
       return r
 
getm'noShade ::
             (Monad mn, CHTMLHRElement this) =>
               Expression this -> mn (Expression Bool)
getm'noShade = get'noShade
 
set'size ::
         (Monad mn, CHTMLHRElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'size = setjsProperty "size"
 
get'size ::
         (Monad mn, CHTMLHRElement this) =>
           Expression this -> mn (Expression String)
get'size thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "size")
       return r
 
getm'size ::
          (Monad mn, CHTMLHRElement this) =>
            Expression this -> mn (Expression String)
getm'size = get'size
 
set'width ::
          (Monad mn, CHTMLHRElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
 
get'width ::
          (Monad mn, CHTMLHRElement this) =>
            Expression this -> mn (Expression String)
get'width thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "width")
       return r
 
getm'width ::
           (Monad mn, CHTMLHRElement this) =>
             Expression this -> mn (Expression String)
getm'width = get'width
 
mkHr ::
     (Monad mn, CHTMLDocument a) =>
       Expression a -> mn (Expression THTMLHRElement)
mkHr = createElement (StringLit "hr" "hr")