There is only one joystick

This commit is contained in:
nek0 2019-02-11 15:31:04 +01:00
parent ab4be91d13
commit 5067551373
2 changed files with 2 additions and 2 deletions

View file

@ -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

View file

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