nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

There is only one joystick

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Menu/Connect.hs
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

2
src/Types/UserData.hs
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