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 =
 
 
 -- | Get input devices.
-getInput :: Mouse -> IO Input
-getInput oldMouse = do
+getInput :: Input -> IO Input
+getInput (Input _ oldMouse) = do
     keyboard <- getKeyboard
     mouse    <- getMouse oldMouse
     return $ Input keyboard mouse