module Data.DOM.HTMLBaseElement
       (set'href, get'href, getm'href, set'target, get'target,
        getm'target)
       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'href ::
         (Monad mn, CHTMLBaseElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'href = setjsProperty "href"
 
get'href ::
         (Monad mn, CHTMLBaseElement 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, CHTMLBaseElement this) =>
            Expression this -> mn (Expression String)
getm'href = get'href
 
set'target ::
           (Monad mn, CHTMLBaseElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'target = setjsProperty "target"
 
get'target ::
           (Monad mn, CHTMLBaseElement 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, CHTMLBaseElement this) =>
              Expression this -> mn (Expression String)
getm'target = get'target