mkKeyMap
    :: Functor f => GLFW.KeyState -> ModKey -> EventMap.Doc
    -> f () -> Widget.EventHandlers f
mkKeyMap isPress key doc =
    EventMap.keyEventMap
    (EventMap.KeyEvent isPress key) doc .
    withEmptyResult
mkKeyMap
    :: Functor f => GLFW.KeyState -> ModKey -> EventMap.Doc
    -> f () -> Widget.EventHandlers f
mkKeyMap isPress key doc =
    EventMap.keyEventMap
    (EventMap.KeyEvent isPress key) doc .
    withEmptyResult
mkKeyMap isPress key doc =
    EventMap.keyEventMap
    (EventMap.KeyEvent isPress key) doc .
    withEmptyResult