Remove a lot of IO/maybe cruft

2022-10-30 16:11:30 +00:00
parent 624a4c3bcd
commit 219379393e
9 changed files with 85 additions and 93 deletions
@@ -24,7 +24,7 @@ import SDL
 handleEvent :: Event -> Universe -> IO (Maybe Universe)
 handleEvent e = case eventPayload e of
    TextInputEvent tev -> return . Just . handleTextInput (textInputEventText tev)
-    KeyboardEvent kev -> handleKeyboardEvent kev
+    KeyboardEvent kev -> return . Just . handleKeyboardEvent kev
    MouseMotionEvent mmev -> return . handleMouseMotionEvent mmev
    MouseButtonEvent mbev -> return . Just . over uvWorld (handleMouseButtonEvent mbev)
    MouseWheelEvent mwev -> return . handleMouseWheelEvent mwev