@@ -111,6 +111,9 @@ instance Monoid EventFlags where
111preventDefault :: EventFlags
111preventDefault :: EventFlags
112preventDefault = mempty { _eventFlags_preventDefault = True }
112preventDefault = mempty { _eventFlags_preventDefault = True }
114+stopPropagation :: EventFlags
115+stopPropagation = mempty { _eventFlags_propagation = Propagation_Stop }
114newtype EventFilter d er en = EventFilter (DomHandler d (RawEvent d en) (EventFlags, DomHandler d () (Maybe (er en))))
117newtype EventFilter d er en = EventFilter (DomHandler d (RawEvent d en) (EventFlags, DomHandler d () (Maybe (er en))))
116data ElementConfig er t m
119data ElementConfig er t m