module Data.DOM.Entity
       (get'publicId, getm'publicId, get'systemId, getm'systemId,
        get'notationName, getm'notationName)
       where
import Data.DOM.Dom
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Document (createElement)
 
get'publicId ::
             (Monad mn, CEntity this) =>
               Expression this -> mn (Expression String)
get'publicId thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "publicId")
       return r
 
getm'publicId ::
              (Monad mn, CEntity this) =>
                Expression this -> mn (Expression String)
getm'publicId = get'publicId
 
get'systemId ::
             (Monad mn, CEntity this) =>
               Expression this -> mn (Expression String)
get'systemId thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "systemId")
       return r
 
getm'systemId ::
              (Monad mn, CEntity this) =>
                Expression this -> mn (Expression String)
getm'systemId = get'systemId
 
get'notationName ::
                 (Monad mn, CEntity this) =>
                   Expression this -> mn (Expression String)
get'notationName thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "notationName")
       return r
 
getm'notationName ::
                  (Monad mn, CEntity this) =>
                    Expression this -> mn (Expression String)
getm'notationName = get'notationName