There is only one joystick

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
 

src/Types/UserData.hs

@@ -50,7 +50,7 @@ data UserData = UserData
 data Controller
   = None
   | Keyboard
-  | Joystick SDL.Joystick
+  | Joystick
   deriving (Eq, Show)
 
 data State