diff options
| author | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 11:54:06 +0200 |
|---|---|---|
| committer | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 11:54:06 +0200 |
| commit | f35ebbde90cc061a0f8c987cbb303ba3929b859d (patch) | |
| tree | bd3e810d9c2e5439b97325cd45fc30b63d38fc97 | |
| parent | 08f5c4618dcdbf94bd8451d75f0f376b3726adcf (diff) | |
Removed extra parentheses
| -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 |