From f35ebbde90cc061a0f8c987cbb303ba3929b859d Mon Sep 17 00:00:00 2001 From: Marc Sunet Date: Mon, 27 Aug 2012 11:54:06 +0200 Subject: Removed extra parentheses --- Spear/App/Input.hs | 6 +++--- 1 file 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 = prop' _ ypos MouseDY = ypos - property oldMouse MouseY buttons = fmap toEnum [0..fromEnum (maxBound :: MouseButton)] - getKeystate = (fmap (V.fromList . fmap ((==) GLFW.Press)) . - mapM GLFW.getMouseButton . - fmap toGLFWbutton $ buttons) + getKeystate = fmap (V.fromList . fmap ((==) GLFW.Press)) . + mapM GLFW.getMouseButton . + fmap toGLFWbutton $ buttons in do Position xpos ypos <- get GLFW.mousePos keystate <- getKeystate -- cgit v1.2.3