@@ -21,6 +21,7 @@ module Reflex.Dom.Old
2121 , buildEmptyElement
2222 , buildEmptyElementNS
2323 , deleteBetweenExclusive
24+ , elStopPropagationNS
2425 , elWith
2526 , elWith'
2627 , emptyElWith
@@ -245,9 +246,9 @@ getQuitWidget = return $ do
245246 WebViewSingleton wv <- askWebView
246247 liftIO $ quitWebView wv
247248
248−elStopPropagationNS :: forall t m en a. (MonadWidget t m, DOM.IsEvent (EventType en)) => Maybe Text -> Text -> EventName en -> m a -> m a
249+elStopPropagationNS :: forall t m en a. (MonadWidget t m) => Maybe Text -> Text -> EventName en -> m a -> m a
249250elStopPropagationNS ns elementTag en child = do
250− let f = GhcjsEventFilter $ \en (GhcjsDomEvent evt) -> do
251+ let f = GhcjsEventFilter $ \_ -> do
251252 return (stopPropagation, return Nothing)
252253 cfg = (def :: ElementConfig EventResult t m)
253254 & namespace .~ ns