module Data.DOM.HTMLBRElement
       (set'clear, get'clear, getm'clear, mkBr) 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'clear ::
          (Monad mn, CHTMLBRElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'clear = setjsProperty "clear"
 
get'clear ::
          (Monad mn, CHTMLBRElement this) =>
            Expression this -> mn (Expression String)
get'clear thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "clear")
       return r
 
getm'clear ::
           (Monad mn, CHTMLBRElement this) =>
             Expression this -> mn (Expression String)
getm'clear = get'clear
 
mkBr ::
     (Monad mn, CHTMLDocument a) =>
       Expression a -> mn (Expression THTMLBRElement)
mkBr = createElement (StringLit "br" "br")