diff options
-rw-r--r-- | Spear/App/Input.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs index 6ebb45d..4f3807f 100644 --- a/Spear/App/Input.hs +++ b/Spear/App/Input.hs | |||
@@ -100,9 +100,9 @@ getMouse oldMouse = | |||
100 | prop' _ ypos MouseDY = ypos - property oldMouse MouseY | 100 | prop' _ ypos MouseDY = ypos - property oldMouse MouseY |
101 | 101 | ||
102 | buttons = fmap toEnum [0..fromEnum (maxBound :: MouseButton)] | 102 | buttons = fmap toEnum [0..fromEnum (maxBound :: MouseButton)] |
103 | getKeystate = (fmap (V.fromList . fmap ((==) GLFW.Press)) . | 103 | getKeystate = fmap (V.fromList . fmap ((==) GLFW.Press)) . |
104 | mapM GLFW.getMouseButton . | 104 | mapM GLFW.getMouseButton . |
105 | fmap toGLFWbutton $ buttons) | 105 | fmap toGLFWbutton $ buttons |
106 | in do | 106 | in do |
107 | Position xpos ypos <- get GLFW.mousePos | 107 | Position xpos ypos <- get GLFW.mousePos |
108 | keystate <- getKeystate | 108 | keystate <- getKeystate |