From 0a31aae0c1da70c29bae87fb45b6974cab7007e3 Mon Sep 17 00:00:00 2001
From: Devin Jacobs <dbuttonz@gmail.com>
Date: Sun, 10 Sep 2017 19:40:25 -0600
Subject: [PATCH] Replace `not (null (filter ...))` with `any` in docs

---
 src/SDL.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SDL.hs b/src/SDL.hs
index 2798b2c..ac7d0d8 100644
--- a/src/SDL.hs
+++ b/src/SDL.hs
@@ -99,7 +99,7 @@ Here @events@ is a list of 'Event' values. For our application we will check if
             'keyboardEventKeyMotion' keyboardEvent == 'Pressed' &&
             'keysymKeycode' ('keyboardEventKeysym' keyboardEvent) == 'KeycodeQ'
           _ -> False
-      qPressed = not (null (filter eventIsQPress events))
+      qPressed = any eventIsQPress events
 @
 
 In our @appLoop@ we process events and then update the screen accordingly. Here we simply use the 'Renderer'