Made getMouse prettier

1 files changed, 4 insertions, 1 deletions

diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs
index 4f3807f..8165d8b 100644
--- a/Spear/App/Input.hs
+++ b/Spear/App/Input.hs
@@ -106,7 +106,10 @@ getMouse oldMouse =
     in do
         Position xpos ypos <- get GLFW.mousePos
         keystate <- getKeystate
-        return $ Mouse (getButton keystate) (prop' (fromIntegral xpos) (fromIntegral ypos))
+        return $ Mouse
+            { button   = getButton keystate
+            , property = prop' (fromIntegral xpos) (fromIntegral ypos)
+            }
 
 
 -- | Get input devices.