keymap :: SDL.Keysym -> KeyDirection
keymap (SDL.Keysym code _ _) = case code of
    79 -> KeyRight
    80 -> KeyLeft
    81 -> KeyDown
    82 -> KeyUp
    _ -> KeyOther
keymap :: SDL.Keysym -> KeyDirection
keymap (SDL.Keysym code _ _) = case code of
    79 -> KeyRight
    80 -> KeyLeft
    81 -> KeyDown
    82 -> KeyUp
    _ -> KeyOther
keymap (SDL.Keysym code _ _) = case code of
    79 -> KeyRight
    80 -> KeyLeft
    81 -> KeyDown
    82 -> KeyUp
    _ -> KeyOther