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