Replaced collectEvents that I missed

Author: Purlox

examples/OpenGLExample.hs

@@ -42,12 +42,7 @@ main = do
   (prog, attrib) <- initResources
 
   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
 
         GL.clear [GL.ColorBuffer]