module Data.DOM.HTMLFieldSetElement (get'form, getm'form) where import Data.DOM.Html2 import Control.Monad import BrownPLT.JavaScript import Data.DOM.WBTypes import Data.DOM.Dom import Data.DOM.Document (createElement) get'form :: (Monad mn, CHTMLFieldSetElement this, CHTMLFormElement zz) => Expression this -> mn (Expression zz) get'form thisp = do let et = undefined :: zz let r = DotRef et (thisp /\ et) (Id et "form") return r getm'form :: (Monad mn, CHTMLFieldSetElement this) => Expression this -> mn (Expression THTMLFormElement) getm'form = get'form