module Data.DOM.AbstractView (get'document, getm'document) where
import Data.DOM.Views
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'document ::
             (Monad mn, CAbstractView this, CDocumentView zz) =>
               Expression this -> mn (Expression zz)
get'document thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "document")
       return r
 
getm'document ::
              (Monad mn, CAbstractView this) =>
                Expression this -> mn (Expression TDocumentView)
getm'document = get'document