@@ -87,9 +87,6 @@ type WidgetHost m = Performable m
8787
8888type El = Element EventResult GhcjsDomSpace
8989
90−_el_element :: El t -> RawElement GhcjsDomSpace
91−_el_element = _element_raw
92−
9390addVoidAction :: MonadWidget t m => Event t (WidgetHost m ()) -> m ()
9491addVoidAction = performEvent_
9592
@@ -177,8 +174,20 @@ emptyElWith elementTag cfg = void $ emptyElWith' elementTag cfg
177174emptyElWith' :: (MonadWidget t m, Attributes m attrs t) => Text -> ElConfig attrs -> m (Element EventResult (DomBuilderSpace m) t)
178175emptyElWith' elementTag cfg = liftM fst $ elWith' elementTag cfg $ return ()
179176
177+{-# DEPRECATED _el_clicked "Use `domEvent Click` instead" #-}
180178_el_clicked :: Reflex t => Element EventResult d t -> Event t ()
181179_el_clicked = domEvent Click
182180
181+_el_element :: El t -> RawElement GhcjsDomSpace
182+_el_element = _element_raw
183+
183184_el_events :: Element er d t -> EventSelector t (WrapArg er EventName)
184185_el_events = _element_events
186+
187+{-# DEPRECATED _el_keypress "Use `domEvent Keypress` instead" #-}
188+_el_keypress :: Reflex t => El t -> Event t Int
189+_el_keypress = domEvent Keypress
190+
191+{-# DEPRECATED _el_scrolled "Use `domEvent Scroll` instead" #-}
192+_el_scrolled :: Reflex t => El t -> Event t Int
193+_el_scrolled = domEvent Scroll