Replaced collectEvents with SDL.pollEvents

The exact same function with the identical implementation is already in the library, so lets use it instead.

Author: Purlox

examples/lazyfoo/Lesson03.hs

@@ -29,13 +29,7 @@ main = do
 
   let
     loop = do
-      let collectEvents = do
-            e <- SDL.pollEvent
-            case e of
-              Nothing -> return []
-              Just e' -> (e' :) <$> collectEvents
-
-      events <- collectEvents
+      events <- SDL.pollEvents
       let quit = any (\case SDL.QuitEvent -> True
                             _ -> False) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson04.hs

@@ -41,13 +41,7 @@ main = do
 
   let
     loop oldSurface = do
-      let collectEvents = do
-            e <- SDL.pollEvent
-            case e of
-              Nothing -> return []
-              Just e' -> (e' :) <$> collectEvents
-
-      events <- map SDL.eventPayload <$> collectEvents
+      events <- map SDL.eventPayload <$> SDL.pollEvents
       let quit = any (== SDL.QuitEvent) events
 
           currentSurface =

examples/lazyfoo/Lesson05.hs

@@ -33,13 +33,7 @@ main = do
 
   let
     loop = do
-      let collectEvents = do
-            e <- SDL.pollEvent
-            case e of
-              Nothing -> return []
-              Just e' -> (e' :) <$> collectEvents
-
-      events <- collectEvents
+      events <- SDL.pollEvents
       let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 
       SDL.surfaceBlitScaled stretchedSurface Nothing screenSurface Nothing

examples/lazyfoo/Lesson07.hs

@@ -48,12 +48,7 @@ main = do
   SDL.freeSurface xOutSurface
 
   let loop = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson08.hs

@@ -44,12 +44,7 @@ main = do
   SDL.rendererDrawColor renderer $= V4 maxBound maxBound maxBound maxBound
 
   let loop = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson09.hs

@@ -49,12 +49,7 @@ main = do
   SDL.freeSurface textureSurface
 
   let loop = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson10.hs

@@ -64,12 +64,7 @@ main = do
   backgroundTexture <- loadTexture renderer "examples/lazyfoo/background.bmp"
 
   let loop = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson11.hs

@@ -70,12 +70,7 @@ main = do
       clip4 = SDL.Rectangle (P (V2 100 100)) spriteSize
 
   let loop = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 

examples/lazyfoo/Lesson12.hs

@@ -72,12 +72,7 @@ main = do
   modulatedTexture <- loadTexture renderer "examples/lazyfoo/colors.bmp"
 
   let loop color = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let (Any quit, Sum colorAdjustment) =
               foldMap (\case

examples/lazyfoo/Lesson13.hs

@@ -78,12 +78,7 @@ main = do
   backgroundTexture <- loadTexture renderer "examples/lazyfoo/fadein.bmp"
 
   let loop alpha = do
-        let collectEvents = do
-              e <- SDL.pollEvent
-              case e of
-                Nothing -> return []
-                Just e' -> (e' :) <$> collectEvents
-        events <- collectEvents
+        events <- SDL.pollEvents
 
         let (Any quit, Sum alphaAdjustment) =
               foldMap (\case