module Data.DOM.Text (splitText) where
import Data.DOM.Dom
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Document (createElement)
 
splitText ::
          (Monad mn, CText this, CText zz) =>
            Expression Double -> Expression this -> mn (Expression zz)
splitText a thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "splitText")
       return (CallExpr et r [a /\ et])