@@ -11,6 +11,7 @@ module Reflex.Dom.Old
1111 , El
1212 , _el_clicked
1313 , _el_element
14+ , _el_events
1415 , addVoidAction
1516 , AttributeMap
1617 , Attributes (..)
@@ -35,6 +36,7 @@ import Control.Monad.Fix
3536import Control.Monad.IO.Class
3637import Control.Monad.Ref
3738import Data.Default
39+import Data.Functor.Misc
3840import Data.Map (Map)
3941import qualified Data.Map as Map
4042import Data.Text
@@ -177,3 +179,6 @@ emptyElWith' elementTag cfg = liftM fst $ elWith' elementTag cfg $ return ()
177179
178180_el_clicked :: Reflex t => Element EventResult d t -> Event t ()
179181_el_clicked = domEvent Click
182+
183+_el_events :: Element er d t -> EventSelector t (WrapArg er EventName)
184+_el_events = _element_events