@@ -559,6 +559,29 @@ type family EventResultType (en :: EventTag) :: * where
559559 EventResultType 'DragoverTag = ()
560560 EventResultType 'DragstartTag = ()
561561 EventResultType 'DropTag = ()
562+ EventResultType 'AbortTag = ()
563+ EventResultType 'ContextmenuTag = ()
564+ EventResultType 'ErrorTag = ()
565+ EventResultType 'InputTag = ()
566+ EventResultType 'InvalidTag = ()
567+ EventResultType 'LoadTag = ()
568+ EventResultType 'MouseoutTag = ()
569+ EventResultType 'MouseoverTag = ()
570+ EventResultType 'SelectTag = ()
571+ EventResultType 'SubmitTag = ()
572+ EventResultType 'BeforecutTag = ()
573+ EventResultType 'CutTag = ()
574+ EventResultType 'BeforecopyTag = ()
575+ EventResultType 'CopyTag = ()
576+ EventResultType 'BeforepasteTag = ()
577+ EventResultType 'PasteTag = ()
578+ EventResultType 'ResetTag = ()
579+ EventResultType 'SearchTag = ()
580+ EventResultType 'SelectstartTag = ()
581+ EventResultType 'TouchstartTag = ()
582+ EventResultType 'TouchmoveTag = ()
583+ EventResultType 'TouchendTag = ()
584+ EventResultType 'TouchcancelTag = ()
562585
563586wrapDomEventsMaybe :: (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 (EventType en) e (Maybe (f en))) -> m (EventSelector t (WrapArg f EventName))
564587wrapDomEventsMaybe element handlers = do
@@ -610,6 +633,29 @@ defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of
610633 Dragover -> return ()
611634 Dragstart -> return ()
612635 Drop -> return ()
636+ Abort -> return ()
637+ Contextmenu -> return ()
638+ Error -> return ()
639+ Input -> return ()
640+ Invalid -> return ()
641+ Load -> return ()
642+ Mouseout -> return ()
643+ Mouseover -> return ()
644+ Select -> return ()
645+ Submit -> return ()
646+ Beforecut -> return ()
647+ Cut -> return ()
648+ Beforecopy -> return ()
649+ Copy -> return ()
650+ Beforepaste -> return ()
651+ Paste -> return ()
652+ Reset -> return ()
653+ Search -> return ()
654+ Selectstart -> return ()
655+ Touchstart -> return ()
656+ Touchmove -> return ()
657+ Touchend -> return ()
658+ Touchcancel -> return ()
613659
614660wrapElement :: 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 (EventType en) Element (Maybe (EventResult en))) -> Element -> m (El t)
615661wrapElement eh e = do