diff options
| author | Jeanne-Kamikaze <jeannekamikaze@gmail.com> | 2013-02-21 21:44:43 +0100 |
|---|---|---|
| committer | Jeanne-Kamikaze <jeannekamikaze@gmail.com> | 2013-02-21 21:44:43 +0100 |
| commit | 701203611a58ef7c5a2b9872c73d84805cf69396 (patch) | |
| tree | 15aae03a970f553b2b794465073721e3f6fc3337 | |
| parent | a00285359a0d6712ee1d4a9ee82fd119345ff981 (diff) | |
getInput now takes an Input instead of a Mouse
| -rw-r--r-- | Spear/App/Input.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Spear/App/Input.hs b/Spear/App/Input.hs index b63a024..44b94a9 100644 --- a/Spear/App/Input.hs +++ b/Spear/App/Input.hs | |||
| @@ -134,8 +134,8 @@ getMouse oldMouse = | |||
| 134 | 134 | ||
| 135 | 135 | ||
| 136 | -- | Get input devices. | 136 | -- | Get input devices. |
| 137 | getInput :: Mouse -> IO Input | 137 | getInput :: Input -> IO Input |
| 138 | getInput oldMouse = do | 138 | getInput (Input _ oldMouse) = do |
| 139 | keyboard <- getKeyboard | 139 | keyboard <- getKeyboard |
| 140 | mouse <- getMouse oldMouse | 140 | mouse <- getMouse oldMouse |
| 141 | return $ Input keyboard mouse | 141 | return $ Input keyboard mouse |