diff options
-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 |