@@ -589,6 +589,8 @@ type family EventResultType (en :: EventTag) :: * where
589589 EventResultType 'TouchmoveTag = ()
590590 EventResultType 'TouchendTag = ()
591591 EventResultType 'TouchcancelTag = ()
592+ EventResultType 'MousewheelTag = ()
593+ EventResultType 'WheelTag = ()
592594
593595wrapDomEventsMaybe :: (Functor (Event t), IsElement e, MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => e -> (forall en. EventName en -> EventM e (EventType en) (Maybe (f en))) -> m (EventSelector t (WrapArg f EventName))
594596wrapDomEventsMaybe element handlers = do
@@ -662,6 +664,8 @@ defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of
662664 Touchmove -> return ()
663665 Touchend -> return ()
664666 Touchcancel -> return ()
667+ Mousewheel -> return ()
668+ Wheel -> return ()
665669
666670wrapElement :: forall t h m. (Functor (Event t), MonadIO m, MonadSample t m, MonadReflexCreateTrigger t m, Reflex t, HasPostGui t h m) => (forall en. Element -> EventName en -> EventM Element (EventType en) (Maybe (EventResult en))) -> Element -> m (El t)
667671wrapElement eh e = do