eta reductions

examples/example00.hs

@@ -110,8 +110,10 @@ pre = do
 exitOnQ :: KeyboardMessage -> Affection StateData ()
 exitOnQ (MsgKeyboardEvent _ _ _ _ sym) =
   case SDL.keysymKeycode sym of
-    SDL.KeycodeQ -> quit
-    otherwise -> return ()
+    SDL.KeycodeQ -> do
+      liftIO $ logIO Debug "Yo dog I heard..."
+      quit
+    _ -> return ()
 
 handle :: [SDL.EventPayload] -> Affection StateData ()
 handle es = do

src/Affection/Subsystems/AffectionKeyboard.hs

@@ -17,7 +17,7 @@ consumeSDLKeyboardEvents
   => ak
   -> [SDL.EventPayload]
   -> Affection us [SDL.EventPayload]
-consumeSDLKeyboardEvents ak eps = doConsume eps
+consumeSDLKeyboardEvents ak = doConsume
   where
     doConsume [] = return []
     doConsume (e:es) = do

src/Affection/Subsystems/AffectionMouse.hs

@@ -19,7 +19,7 @@ consumeSDLMouseEvents
   => am
   -> [SDL.EventPayload]
   -> Affection us [SDL.EventPayload]
-consumeSDLMouseEvents am eps = doConsume eps
+consumeSDLMouseEvents am = doConsume
   where
     doConsume [] = return []
     doConsume (e:es) = do

src/Affection/Subsystems/AffectionWindow.hs

@@ -18,7 +18,7 @@ consumeSDLWindowEvents
   => aw
   -> [SDL.EventPayload]
   -> Affection us [SDL.EventPayload]
-consumeSDLWindowEvents aw eps = doConsume eps
+consumeSDLWindowEvents aw = doConsume
   where
     doConsume [] = return []
     doConsume (e:es) = do