Simplified checking for QuitEvent

Author: Purlox

examples/lazyfoo/Lesson03.hs

@@ -30,8 +30,7 @@ main = do
   let
     loop = do
       events <- SDL.pollEvents
-      let quit = any (\case SDL.QuitEvent -> True
-                            _ -> False) $ map SDL.eventPayload events
+      let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 
       SDL.surfaceBlit xOut Nothing screenSurface Nothing
       SDL.updateWindowSurface window

examples/lazyfoo/Lesson14.hs

@@ -77,11 +77,7 @@ main = do
       loop (frame:frames) = do
         events <- SDL.pollEvents
 
-        let (Any quit) =
-              foldMap (\case
-                         SDL.QuitEvent -> (Any True)
-                         _ -> mempty) $
-              map SDL.eventPayload events
+        let quit = any (== SDL.QuitEvent) $ map SDL.eventPayload events
 
         SDL.rendererDrawColor renderer $= V4 maxBound maxBound maxBound maxBound
         SDL.clear renderer