module Data.DOM.HTMLMetaElement
       (set'content, get'content, getm'content, set'httpEquiv,
        get'httpEquiv, getm'httpEquiv, set'name, get'name, getm'name,
        set'scheme, get'scheme, getm'scheme)
       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'content ::
            (Monad mn, CHTMLMetaElement zz) =>
              Expression String -> Expression zz -> mn (Expression zz)
set'content = setjsProperty "content"
 
get'content ::
            (Monad mn, CHTMLMetaElement this) =>
              Expression this -> mn (Expression String)
get'content thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "content")
       return r
 
getm'content ::
             (Monad mn, CHTMLMetaElement this) =>
               Expression this -> mn (Expression String)
getm'content = get'content
 
set'httpEquiv ::
              (Monad mn, CHTMLMetaElement zz) =>
                Expression String -> Expression zz -> mn (Expression zz)
set'httpEquiv = setjsProperty "httpEquiv"
 
get'httpEquiv ::
              (Monad mn, CHTMLMetaElement this) =>
                Expression this -> mn (Expression String)
get'httpEquiv thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "httpEquiv")
       return r
 
getm'httpEquiv ::
               (Monad mn, CHTMLMetaElement this) =>
                 Expression this -> mn (Expression String)
getm'httpEquiv = get'httpEquiv
 
set'name ::
         (Monad mn, CHTMLMetaElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
 
get'name ::
         (Monad mn, CHTMLMetaElement this) =>
           Expression this -> mn (Expression String)
get'name thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "name")
       return r
 
getm'name ::
          (Monad mn, CHTMLMetaElement this) =>
            Expression this -> mn (Expression String)
getm'name = get'name
 
set'scheme ::
           (Monad mn, CHTMLMetaElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'scheme = setjsProperty "scheme"
 
get'scheme ::
           (Monad mn, CHTMLMetaElement this) =>
             Expression this -> mn (Expression String)
get'scheme thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "scheme")
       return r
 
getm'scheme ::
            (Monad mn, CHTMLMetaElement this) =>
              Expression this -> mn (Expression String)
getm'scheme = get'scheme