diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-25 05:08:10 +0100 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-25 05:08:10 +0100 |
commit | bbed5806538a47b184d3bde8a2be8d54c5400e7e (patch) | |
tree | b471dcbb31e8001ff9928878fe46c216ab719573 /HTanks.hs | |
parent | 9ca9555fede912e5a3c9cebaa2050bb2c7cc7b1c (diff) | |
download | htanks-bbed5806538a47b184d3bde8a2be8d54c5400e7e.tar htanks-bbed5806538a47b184d3bde8a2be8d54c5400e7e.zip |
Fixed event handling bug; don't provide generated bindings in git as they are probably not 64-bit clean
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 |