module Data.DOM.HTMLOListElement
(set'compact, get'compact, getm'compact, set'start, get'start,
getm'start, set'type, get'type, getm'type, mkOl)
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'compact ::
(Monad mn, CHTMLOListElement zz) =>
Expression Bool -> Expression zz -> mn (Expression zz)
set'compact = setjsProperty "compact"
get'compact ::
(Monad mn, CHTMLOListElement this) =>
Expression this -> mn (Expression Bool)
get'compact thisp
= do let et = undefined :: Bool
let r = DotRef et (thisp /\ et) (Id et "compact")
return r
getm'compact ::
(Monad mn, CHTMLOListElement this) =>
Expression this -> mn (Expression Bool)
getm'compact = get'compact
set'start ::
(Monad mn, CHTMLOListElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'start = setjsProperty "start"
get'start ::
(Monad mn, CHTMLOListElement this) =>
Expression this -> mn (Expression Double)
get'start thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "start")
return r
getm'start ::
(Monad mn, CHTMLOListElement this) =>
Expression this -> mn (Expression Double)
getm'start = get'start
set'type ::
(Monad mn, CHTMLOListElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'type = setjsProperty "type"
get'type ::
(Monad mn, CHTMLOListElement 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, CHTMLOListElement this) =>
Expression this -> mn (Expression String)
getm'type = get'type
mkOl ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLOListElement)
mkOl = createElement (StringLit "ol" "ol")