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