module Data.DOM.HTMLParagraphElement
       (set'align, get'align, getm'align, mkP) 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'align ::
          (Monad mn, CHTMLParagraphElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLParagraphElement this) =>
            Expression this -> mn (Expression String)
get'align thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "align")
       return r
 
getm'align ::
           (Monad mn, CHTMLParagraphElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
mkP ::
    (Monad mn, CHTMLDocument a) =>
      Expression a -> mn (Expression THTMLParagraphElement)
mkP = createElement (StringLit "p" "p")