translate (RawKeyEvent key scanCode keyState modKeys : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys Nothing) : translate xs
translate (RawKeyEvent key scanCode keyState modKeys : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys Nothing) : translate xs
translate (RawKeyEvent key scanCode keyState modKeys : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys Nothing) : translate xs