From ff7bdbb784705e5f28d0857a282a783ba7e4e208 Mon Sep 17 00:00:00 2001
From: Marc Sunet <jeannekamikaze@gmail.com>
Date: Mon, 27 Aug 2012 12:16:26 +0200
Subject: Made getMouse prettier

---
 Spear/App/Input.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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.
-- 
cgit v1.2.3