diff options
Diffstat (limited to 'HTanks.hs')
-rw-r--r-- | HTanks.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -105,8 +105,9 @@ simulationStep = do handleEvents :: Main () handleEvents = do event <- gets driver >>= liftIO . nextEvent - when (isJust event) $ - handleEvent $ fromJust event + when (isJust event) $ do + handleEvent $ fromJust event + handleEvents handleEvent :: SomeEvent -> Main () handleEvent ev |