Apply Hlints

src/Loop.hs

@@ -90,7 +90,7 @@ applyEventsIO
     -> world
     -> [Event]
     -> IO (Maybe world)
-applyEventsIO fn w es = foldM (applyEventIO fn) (Just w) es
+applyEventsIO fn w = foldM (applyEventIO fn) (Just w)
 
 --eventCloseOrResize :: Event -> IO (Maybe Event)
 --eventCloseOrResize e = case eventPayload e of
@@ -105,7 +105,7 @@ applyEventIO :: (world -> Event -> Maybe world) -> Maybe world -> Event -> IO (M
 applyEventIO fn mw e = case eventPayload e of
     QuitEvent           -> return Nothing
     WindowClosedEvent _ -> return Nothing
-    WindowSizeChangedEvent (WindowSizeChangedEventData {windowSizeChangedEventSize = V2 x y})
+    WindowSizeChangedEvent WindowSizeChangedEventData {windowSizeChangedEventSize = V2 x y}
                         -> GL.viewport $= (GL.Position 0 0,GL.Size x y) >> return (mw >>= \w -> fn w e)
     _                   -> return $ mw >>= flip fn e