aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Spear/App/Input.hs4
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.
137getInput :: Mouse -> IO Input 137getInput :: Input -> IO Input
138getInput oldMouse = do 138getInput (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