@@ -16,6 +16,7 @@ module Reflex.Dom.Old
1616 , buildEmptyElement
1717 , buildEmptyElementNS
1818 , deleteBetweenExclusive
19+ , onEventName
1920 ) where
2021
2122import Control.Arrow ((***))
@@ -31,8 +32,9 @@ import qualified Data.Map as Map
3132import qualified Data.Text as T
3233import Foreign.JavaScript.TH
3334import qualified GHCJS.DOM.Element as DOM
35+import GHCJS.DOM.EventM (EventM)
3436import GHCJS.DOM.Node (getParentNode, getPreviousSibling, removeChild, toNode)
35−import GHCJS.DOM.Types (IsNode)
37+import GHCJS.DOM.Types (IsElement, IsNode)
3638import Reflex
3739import Reflex.Dom.Builder.Class
3840import Reflex.Dom.Builder.Immediate
@@ -126,3 +128,6 @@ deleteBetweenExclusive s e = do
126128 _ <- removeChild currentParent $ Just x
127129 go
128130 go
131+
132+onEventName :: IsElement e => EventName en -> e -> EventM e (EventType en) () -> IO (IO ())
133+onEventName = elementOnEventName