module Data.DOM.HTMLUListElement
       (set'compact, get'compact, getm'compact, set'type, get'type,
        getm'type, mkUl)
       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, CHTMLUListElement zz) =>
              Expression Bool -> Expression zz -> mn (Expression zz)
set'compact = setjsProperty "compact"
 
get'compact ::
            (Monad mn, CHTMLUListElement 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, CHTMLUListElement this) =>
               Expression this -> mn (Expression Bool)
getm'compact = get'compact
 
set'type ::
         (Monad mn, CHTMLUListElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'type = setjsProperty "type"
 
get'type ::
         (Monad mn, CHTMLUListElement 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, CHTMLUListElement this) =>
            Expression this -> mn (Expression String)
getm'type = get'type
 
mkUl ::
     (Monad mn, CHTMLDocument a) =>
       Expression a -> mn (Expression THTMLUListElement)
mkUl = createElement (StringLit "ul" "ul")