From 295c4b333c76877e191970d90aec05e32eb95724 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Dec 2017 17:58:55 +0100 Subject: [PATCH] eta reductions --- examples/example00.hs | 6 ++++-- src/Affection/Subsystems/AffectionKeyboard.hs | 2 +- src/Affection/Subsystems/AffectionMouse.hs | 2 +- src/Affection/Subsystems/AffectionWindow.hs | 2 +- 4 files changed, 7 insertions(+), 5 deletions(-) diff --git a/examples/example00.hs b/examples/example00.hs index 00d5c69..7cdcf83 100644 --- a/examples/example00.hs +++ b/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 diff --git a/src/Affection/Subsystems/AffectionKeyboard.hs b/src/Affection/Subsystems/AffectionKeyboard.hs index 4d19ea4..3df62fd 100644 --- a/src/Affection/Subsystems/AffectionKeyboard.hs +++ b/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 diff --git a/src/Affection/Subsystems/AffectionMouse.hs b/src/Affection/Subsystems/AffectionMouse.hs index a4e83f9..dcbcf3a 100644 --- a/src/Affection/Subsystems/AffectionMouse.hs +++ b/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 diff --git a/src/Affection/Subsystems/AffectionWindow.hs b/src/Affection/Subsystems/AffectionWindow.hs index 0dea121..6aadf0d 100644 --- a/src/Affection/Subsystems/AffectionWindow.hs +++ b/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