diff options
author | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 12:16:26 +0200 |
---|---|---|
committer | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-27 12:16:26 +0200 |
commit | ff7bdbb784705e5f28d0857a282a783ba7e4e208 (patch) | |
tree | 8691020c7e92eb3ca737bf22702d303fc194f236 | |
parent | f35ebbde90cc061a0f8c987cbb303ba3929b859d (diff) |
Made getMouse prettier
-rw-r--r-- | Spear/App/Input.hs | 5 |
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. |