DocumentView.hs

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