module Data.DOM.HTMLLIElement
(set'type, get'type, getm'type, set'value, get'value, getm'value,
mkLi)
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'type ::
(Monad mn, CHTMLLIElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'type = setjsProperty "type"
get'type ::
(Monad mn, CHTMLLIElement this) =>
Expression this -> mn (Expression String)
get'type thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "type")
return r
getm'type ::
(Monad mn, CHTMLLIElement this) =>
Expression this -> mn (Expression String)
getm'type = get'type
set'value ::
(Monad mn, CHTMLLIElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'value = setjsProperty "value"
get'value ::
(Monad mn, CHTMLLIElement this) =>
Expression this -> mn (Expression Double)
get'value thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "value")
return r
getm'value ::
(Monad mn, CHTMLLIElement this) =>
Expression this -> mn (Expression Double)
getm'value = get'value
mkLi ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLLIElement)
mkLi = createElement (StringLit "li" "li")