module Data.DOM.ProcessingInstruction
       (get'target, getm'target, set'data, get'data, getm'data) where
import Data.DOM.Dom
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Document (createElement)
 
get'target ::
           (Monad mn, CProcessingInstruction this) =>
             Expression this -> mn (Expression String)
get'target thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "target")
       return r
 
getm'target ::
            (Monad mn, CProcessingInstruction this) =>
              Expression this -> mn (Expression String)
getm'target = get'target
 
set'data ::
         (Monad mn, CProcessingInstruction zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'data = setjsProperty "data"
 
get'data ::
         (Monad mn, CProcessingInstruction this) =>
           Expression this -> mn (Expression String)
get'data thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "data")
       return r
 
getm'data ::
          (Monad mn, CProcessingInstruction this) =>
            Expression this -> mn (Expression String)
getm'data = get'data