diff options
Diffstat (limited to 'HTanks.hs')
-rw-r--r-- | HTanks.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -164,7 +164,8 @@ simulationStep = do handleEvents :: Main () handleEvents = do - event <- gets driver >>= liftIO . nextEvent + (newgl, event) <- gets driver >>= liftIO . nextEvent + modify $ \state -> state {driver = newgl} when (isJust event) $ do Main.handleEvent $ fromJust event modify $ \state -> state {players = map (\p -> Player.handleEvent p $ fromJust event) $ players state} |