From 7a953b0a8b6990b4747e4fa777cbf1459fd443a2 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 25 Feb 2017 17:24:21 +0100 Subject: [PATCH] not needed for now Since I switched to texture drawing I don't need to pre-handle WindowMoved events, but who knows, what I might need to pre-handle in the future. --- src/Affection.hs | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/src/Affection.hs b/src/Affection.hs index c989a9b..0d174b9 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -154,15 +154,16 @@ getSurfaces window = do -- Prehandle SDL events in case any window events occur preHandleEvents :: [SDL.Event] -> Affection us [SDL.Event] preHandleEvents evs = - mapM handle evs - where - handle e = - case SDL.eventPayload e of - SDL.WindowMovedEvent _ -> do - liftIO $ traceIO "I was moved" - return e - _ -> - return e + -- mapM handle evs + -- where + -- handle e = + -- case SDL.eventPayload e of + -- SDL.WindowMovedEvent _ -> do + -- liftIO $ traceIO "I was moved" + -- return e + -- _ -> + -- return e + return evs -- | Return the userstate to the user getAffection :: Affection us us