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