From 506755137342e0b60988c50de8e3f80280e53b43 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 11 Feb 2019 15:31:04 +0100 Subject: [PATCH] There is only one joystick --- src/Menu/Connect.hs | 2 +- src/Types/UserData.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Menu/Connect.hs b/src/Menu/Connect.hs index 776882a..eab15e1 100644 --- a/src/Menu/Connect.hs +++ b/src/Menu/Connect.hs @@ -50,7 +50,7 @@ joystickConnect msg = do ident <- liftIO $ fromIntegral <$> SDL.getJoystickID joy liftIO $ logIO A.Debug $ "Joystick connected: " ++ show ident putAffection ud - { controls = Joystick joy + { controls = Joystick } ) mjoy diff --git a/src/Types/UserData.hs b/src/Types/UserData.hs index 5d93423..d0430d4 100644 --- a/src/Types/UserData.hs +++ b/src/Types/UserData.hs @@ -50,7 +50,7 @@ data UserData = UserData data Controller = None | Keyboard - | Joystick SDL.Joystick + | Joystick deriving (Eq, Show) data State