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 ident <- liftIO $ fromIntegral <$> SDL.getJoystickID joy
liftIO $ logIO A.Debug $ "Joystick connected: " ++ show ident liftIO $ logIO A.Debug $ "Joystick connected: " ++ show ident
putAffection ud putAffection ud
{ controls = Joystick joy { controls = Joystick
} }
) mjoy ) mjoy

View file

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