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 |