@@ -579,6 +579,7 @@ newtype EventResult en = EventResult { unEventResult :: EventResultType en }
579579
580580type family EventResultType (en :: EventTag) :: * where
581581 EventResultType 'ClickTag = ()
582+ EventResultType 'DblclickTag = ()
582583 EventResultType 'KeypressTag = Int
583584 EventResultType 'ScrollTag = Int
584585 EventResultType 'MousemoveTag = (Int, Int)
@@ -619,6 +620,7 @@ getMouseEventCoords = do
619620defaultDomEventHandler :: IsElement e => e -> EventName en -> EventM (EventType en) e (Maybe (EventResult en))
620621defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of
621622 Click -> return ()
623+ Dblclick -> return ()
622624 Keypress -> getKeyEvent
623625 Scroll -> liftIO $ elementGetScrollTop e
624626 Mousemove -> getMouseEventCoords