module Data.DOM.HTMLLinkElement
(set'disabled, get'disabled, getm'disabled, set'charset,
get'charset, getm'charset, set'href, get'href, getm'href,
set'hreflang, get'hreflang, getm'hreflang, set'media, get'media,
getm'media, set'rel, get'rel, getm'rel, set'rev, get'rev, getm'rev,
set'target, get'target, getm'target, set'type, get'type, getm'type)
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'disabled ::
(Monad mn, CHTMLLinkElement zz) =>
Expression Bool -> Expression zz -> mn (Expression zz)
set'disabled = setjsProperty "disabled"
get'disabled ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression Bool)
get'disabled thisp
= do let et = undefined :: Bool
let r = DotRef et (thisp /\ et) (Id et "disabled")
return r
getm'disabled ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression Bool)
getm'disabled = get'disabled
set'charset ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'charset = setjsProperty "charset"
get'charset ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'charset thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "charset")
return r
getm'charset ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'charset = get'charset
set'href ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'href = setjsProperty "href"
get'href ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'href thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "href")
return r
getm'href ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'href = get'href
set'hreflang ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'hreflang = setjsProperty "hreflang"
get'hreflang ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'hreflang thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "hreflang")
return r
getm'hreflang ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'hreflang = get'hreflang
set'media ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'media = setjsProperty "media"
get'media ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'media thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "media")
return r
getm'media ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'media = get'media
set'rel ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'rel = setjsProperty "rel"
get'rel ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'rel thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "rel")
return r
getm'rel ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'rel = get'rel
set'rev ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'rev = setjsProperty "rev"
get'rev ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'rev thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "rev")
return r
getm'rev ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'rev = get'rev
set'target ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'target = setjsProperty "target"
get'target ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
get'target thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "target")
return r
getm'target ::
(Monad mn, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'target = get'target
set'type ::
(Monad mn, CHTMLLinkElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'type = setjsProperty "type"
get'type ::
(Monad mn, CHTMLLinkElement 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, CHTMLLinkElement this) =>
Expression this -> mn (Expression String)
getm'type = get'type