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