eta reductions

This commit is contained in:
nek0 2017-12-15 17:58:55 +01:00
parent f12e62d938
commit 295c4b333c
4 changed files with 7 additions and 5 deletions

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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