module Data.DOM.EventListener (handleEvent) where
import Data.DOM.Events
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Views
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
handleEvent ::
            (Monad mn, CEventListener this, CEvent evt) =>
              Expression evt -> Expression this -> mn (Expression ())
handleEvent a thisp
  = do let et = undefined :: ()
       let r = DotRef et (thisp /\ et) (Id et "handleEvent")
       return (CallExpr et r [a /\ et])