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