@@ -9,6 +9,7 @@
99module Reflex.Dom.Old
1010 ( MonadWidget
1111 , El
12+ , _el_clicked
1213 , _el_element
1314 , addVoidAction
1415 , AttributeMap
@@ -173,3 +174,6 @@ emptyElWith elementTag cfg = void $ emptyElWith' elementTag cfg
173174
174175emptyElWith' :: (MonadWidget t m, Attributes m attrs t) => Text -> ElConfig attrs -> m (Element EventResult (DomBuilderSpace m) t)
175176emptyElWith' elementTag cfg = liftM fst $ elWith' elementTag cfg $ return ()
177+
178+_el_clicked :: Reflex t => Element EventResult d t -> Event t ()
179+_el_clicked = domEvent Click