Engage multiple threads

2021-09-23 21:19:38 +01:00
parent 85edd98d62
commit 4a1501a358
6 changed files with 69 additions and 35 deletions
@@ -35,11 +35,8 @@ import Control.Lens
 import qualified Data.Set as S
 import SDL

-handleEvent :: World -> Event -> Maybe World
-handleEvent = flip handleEvent'
-
-handleEvent' :: Event -> World -> Maybe World
-handleEvent' e = case eventPayload e of
+handleEvent :: Event -> World -> Maybe World
+handleEvent e = case eventPayload e of
    KeyboardEvent kev           -> handleKeyboardEvent kev
    MouseMotionEvent mmev       -> handleMouseMotionEvent mmev
    MouseButtonEvent mbev       -> handleMouseButtonEvent mbev