Add stopPropogation event flag
commit7c00c477dbad070f4b5de8768756cf9e7b0bde5c
authorSid Raval <sid.raval@obsidian.systems>
dateMon 18 Jul 2016, 13:21 (10 years ago)
parent43eb501
src/Reflex/Dom/Builder/Class.hs+3
@@ -111,6 +111,9 @@ instance Monoid EventFlags where
111111preventDefault :: EventFlags
112112preventDefault = mempty { _eventFlags_preventDefault = True }
113113
114+stopPropagation :: EventFlags
115+stopPropagation = mempty { _eventFlags_propagation = Propagation_Stop }
116+
114117newtype EventFilter d er en = EventFilter (DomHandler d (RawEvent d en) (EventFlags, DomHandler d () (Maybe (er en))))
115118
116119data ElementConfig er t m