diff options
| -rw-r--r-- | Spear/App/Input.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs index 74ee1eb..3aabdd0 100644 --- a/Spear/App/Input.hs +++ b/Spear/App/Input.hs | |||
| @@ -37,7 +37,7 @@ data Key | |||
| 37 | | KEY_Y | KEY_Z | KEY_0 | KEY_1 | KEY_2 | KEY_3 | KEY_4 | KEY_5 | 37 | | KEY_Y | KEY_Z | KEY_0 | KEY_1 | KEY_2 | KEY_3 | KEY_4 | KEY_5 |
| 38 | | KEY_6 | KEY_7 | KEY_8 | KEY_9 | KEY_F1 | KEY_F2 | KEY_F3 | 38 | | KEY_6 | KEY_7 | KEY_8 | KEY_9 | KEY_F1 | KEY_F2 | KEY_F3 |
| 39 | | KEY_F4 | KEY_F5 | KEY_F6 | KEY_F7 | KEY_F8 | KEY_F9 | KEY_F10 | 39 | | KEY_F4 | KEY_F5 | KEY_F6 | KEY_F7 | KEY_F8 | KEY_F9 | KEY_F10 |
| 40 | | KEY_F11 | KEY_F12 | KEY_ESC | 40 | | KEY_F11 | KEY_F12 | KEY_ESC | KEY_SPACE |
| 41 | deriving (Enum, Bounded) | 41 | deriving (Enum, Bounded) |
| 42 | 42 | ||
| 43 | 43 | ||
| @@ -212,6 +212,7 @@ toGLFWkey KEY_F10 = fromEnum GLFW.F10 | |||
| 212 | toGLFWkey KEY_F11 = fromEnum GLFW.F11 | 212 | toGLFWkey KEY_F11 = fromEnum GLFW.F11 |
| 213 | toGLFWkey KEY_F12 = fromEnum GLFW.F12 | 213 | toGLFWkey KEY_F12 = fromEnum GLFW.F12 |
| 214 | toGLFWkey KEY_ESC = fromEnum GLFW.ESC | 214 | toGLFWkey KEY_ESC = fromEnum GLFW.ESC |
| 215 | toGLFWkey KEY_SPACE = ord ' ' | ||
| 215 | 216 | ||
| 216 | 217 | ||
| 217 | toGLFWbutton :: MouseButton -> GLFW.MouseButton | 218 | toGLFWbutton :: MouseButton -> GLFW.MouseButton |
