@@ -523,6 +523,8 @@ type family EventResultType (en :: EventTag) :: * where
523 EventResultType 'ClickTag = ()
523 EventResultType 'ClickTag = ()
524 EventResultType 'DblclickTag = ()
524 EventResultType 'DblclickTag = ()
525 EventResultType 'KeypressTag = Int
525 EventResultType 'KeypressTag = Int
526+ EventResultType 'KeydownTag = Int
527+ EventResultType 'KeyupTag = Int
526 EventResultType 'ScrollTag = Int
528 EventResultType 'ScrollTag = Int
527 EventResultType 'MousemoveTag = (Int, Int)
529 EventResultType 'MousemoveTag = (Int, Int)
528 EventResultType 'MousedownTag = (Int, Int)
530 EventResultType 'MousedownTag = (Int, Int)
@@ -572,6 +574,8 @@ defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of
572 Click -> return ()
574 Click -> return ()
573 Dblclick -> return ()
575 Dblclick -> return ()
574 Keypress -> getKeyEvent
576 Keypress -> getKeyEvent
577+ Keydown -> getKeyEvent
578+ Keyup -> getKeyEvent
575 Scroll -> liftIO $ elementGetScrollTop e
579 Scroll -> liftIO $ elementGetScrollTop e
576 Mousemove -> getMouseEventCoords
580 Mousemove -> getMouseEventCoords
577 Mouseup -> getMouseEventCoords
581 Mouseup -> getMouseEventCoords