aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarc Sunet <jeannekamikaze@gmail.com>2012-08-27 12:16:26 +0200
committerMarc Sunet <jeannekamikaze@gmail.com>2012-08-27 12:16:26 +0200
commitff7bdbb784705e5f28d0857a282a783ba7e4e208 (patch)
tree8691020c7e92eb3ca737bf22702d303fc194f236
parentf35ebbde90cc061a0f8c987cbb303ba3929b859d (diff)
Made getMouse prettier
-rw-r--r--Spear/App/Input.hs5
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 =
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
109 return $ Mouse (getButton keystate) (prop' (fromIntegral xpos) (fromIntegral ypos)) 109 return $ Mouse
110 { button = getButton keystate
111 , property = prop' (fromIntegral xpos) (fromIntegral ypos)
112 }
110 113
111 114
112-- | Get input devices. 115-- | Get input devices.