module Data.DOM.Notation
       (get'publicId, getm'publicId, get'systemId, getm'systemId) where
import Data.DOM.Dom
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Document (createElement)
 
get'publicId ::
             (Monad mn, CNotation 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, CNotation this) =>
                Expression this -> mn (Expression String)
getm'publicId = get'publicId
 
get'systemId ::
             (Monad mn, CNotation 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, CNotation this) =>
                Expression this -> mn (Expression String)
getm'systemId = get'systemId