@@ -666,7 +666,7 @@ wrapElement eh e = do
666666elStopPropagationNS :: (MonadWidget t m, IsEvent (EventType en)) => Maybe String -> String -> EventName en -> m a -> m a
667667elStopPropagationNS mns elementTag evt child = do
668668 (e, result) <- buildElementNS mns elementTag (Map.empty :: Map String String) child
669− liftIO $ onEventName evt e stopPropagation
669+ _ <- liftIO $ onEventName evt e stopPropagation
670670 return result
671671
672672{-# INLINABLE elWith #-}