From 701203611a58ef7c5a2b9872c73d84805cf69396 Mon Sep 17 00:00:00 2001
From: Jeanne-Kamikaze <jeannekamikaze@gmail.com>
Date: Thu, 21 Feb 2013 21:44:43 +0100
Subject: getInput now takes an Input instead of a Mouse

---
 Spear/App/Input.hs | 4 ++--
 1 file 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
-- 
cgit v1.2.3