module Data.DOM.DocumentWindow (get'location, getm'location) where
import Data.DOM.WindowObj
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Views
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'location ::
             (Monad mn, CDocumentWindow this, CLocation zz) =>
               Expression this -> mn (Expression zz)
get'location thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "location")
       return r
 
getm'location ::
              (Monad mn, CDocumentWindow this) =>
                Expression this -> mn (Expression TLocation)
getm'location = get'location